raw-angle from scale-rotated-ellipse

Time bar (total: 21.6s)

start0.0ms (0%)

Memory
0.4MiB live, 0.4MiB allocated; 0ms collecting garbage

analyze1.3s (6.2%)

Memory
68.6MiB live, 1 875.4MiB allocated; 302ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.8%0.2%0%0%0%0
0%0%99.8%0.2%0%0%0%1
0%0%99.8%0.2%0%0%0%2
0%0%99.8%0.2%0%0%0%3
0%0%99.8%0.2%0%0%0%4
0%0%99.8%0.2%0%0%0%5
0%0%99.8%0.2%0%0%0%6
0%0%99.8%0.2%0%0%0%7
0%0%99.8%0.2%0%0%0%8
0%0%99.8%0.2%0%0%0%9
0%0%99.8%0.2%0%0%0%10
0.6%0.6%99.2%0.2%0%0%0%11
0.7%0.7%99.1%0.2%0%0%0%12
Compiler

Compiled 171 to 45 computations (73.7% saved)

sample6.8s (31.5%)

Memory
128.5MiB live, 8 776.5MiB allocated; 1.3s collecting garbage
Samples
2.3s2 728×1valid
1.6s1 247×2valid
1.5s4 153×0valid
219.0ms128×3valid
25.0ms87×0invalid
Precisions
Click to see histograms. Total time spent on operations: 5.1s
ival-pow2: 1.2s (24.1% of total)
ival-cosu: 847.0ms (16.5% of total)
ival-sinu: 756.0ms (14.8% of total)
ival-mult!: 704.0ms (13.7% of total)
ival-div!: 655.0ms (12.8% of total)
adjust: 416.0ms (8.1% of total)
ival-sub!: 165.0ms (3.2% of total)
ival-sqrt: 141.0ms (2.8% of total)
ival-add!: 123.0ms (2.4% of total)
ival-atan: 82.0ms (1.6% of total)
ival-pi: 0.0ms (0% of total)
Bogosity

explain1.8s (8.2%)

Memory
10.9MiB live, 2 133.9MiB allocated; 222ms collecting garbage
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1360-0-(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
1360-0-(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
1310-2(634061322040560900.0 -1.5600714972140485e-114 -3.473345585316653e-67 -2.4622059174061385e+47 2.6889760051641555e+237)(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
860-0-(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))
470-0-(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))
420-0-(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))
420-0-(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))
350-1(-7.912275507186408e-193 1.3578928899471382e-161 -8.567907309539165e+177 1.1805536635451848e-192 8.270379445563004e-233)(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)
330-1(-7.912275507186408e-193 1.3578928899471382e-161 -8.567907309539165e+177 1.1805536635451848e-192 8.270379445563004e-233)(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)
280-0-(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)
280-0-(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
230-2(4.8715820655997144e-29 8.081271982970275e-86 2.6937935915365586e-252 -2.485429779933424e-133 1.8816151262548532e-261)(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)
200-1(-1.3922427398208495e-257 -1.675828175324198e-268 -1.855854667442242e-173 1.6467108133547138e-223 -3.6642442223293456e-23)(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)
200-0-(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))
130-1(4.7731941761101046e-228 -4.27925146519212e-164 -4.645586437531862e+237 -1.2778788807553075e+305 -1.3239412836327814e-12)(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)
00-0-x-scale
00-0-(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
00-0-(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
00-0-(*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
00-0-(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
00-0-(pow.f64 b #s(literal 2 binary64))
00-0-(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
00-0-(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))
00-0-(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
00-0-(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
00-0-#s(literal 180 binary64)
00-0-(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
00-0-angle
00-0-#s(literal 2 binary64)
00-0-(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))
00-0-(*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
00-0-b
00-0-(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
00-0-a
00-0-(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))
00-0-(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
00-0-(pow.f64 a #s(literal 2 binary64))
00-0-(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
00-0-(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
00-0-(PI.f64)
00-0-(/.f64 angle #s(literal 180 binary64))
00-0-(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
00-0-(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))
00-0-(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
00-0-y-scale
Explanations
Click to see full explanations table
OperatorSubexpressionExplanationCount
cos.f64(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))sensitivity1360
sin.f64(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))sensitivity1360
-.f64(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))nan-rescue670
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow97
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow87
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow59
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow75
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow45
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow103
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))overflow142
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow37
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow97
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow90
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow97
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow87
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow37
↳(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))overflow178
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))overflow142
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow97
↳(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))overflow178
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow90
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow114
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow87
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow97
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow114
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow59
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow75
↳(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))overflow142
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow84
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow45
↳(pow.f64 b #s(literal 2 binary64))overflow75
↳(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))overflow124
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow103
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow97
↳(pow.f64 a #s(literal 2 binary64))overflow59
/.f64(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))o/o630
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))overflow142
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow74
↳(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))overflow178
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))overflow142
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow194
↳(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))overflow95
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow174
↳(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))overflow178
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow180
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow114
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow87
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow194
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow114
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow118
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow150
↳(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))overflow142
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow84
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow90
↳(pow.f64 b #s(literal 2 binary64))overflow75
↳(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))overflow124
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow206
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow194
↳(pow.f64 a #s(literal 2 binary64))overflow59
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow114
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow84
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(pow.f64 b #s(literal 2 binary64))overflow75
↳(pow.f64 a #s(literal 2 binary64))overflow59
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow114
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow87
-.f64(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))nan-rescue420
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow97
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow75
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow103
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow37
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow97
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow87
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow59
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow45
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow90
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow97
-.f64(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))nan-rescue420
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow87
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow59
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow45
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow90
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow97
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow97
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow75
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow103
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow37
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow97
sqrt.f64(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))oflow-rescue360
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow87
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow37
↳(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))overflow178
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))overflow142
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow97
↳(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))overflow178
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow90
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow114
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow87
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow97
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow114
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow59
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow75
↳(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))overflow142
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow84
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow45
↳(pow.f64 b #s(literal 2 binary64))overflow75
↳(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))overflow124
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow103
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow97
↳(pow.f64 a #s(literal 2 binary64))overflow59
/.f64(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))u/u320
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))underflow22
↳(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))underflow33
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))underflow22
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)underflow88
↳(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))underflow49
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)underflow88
↳(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))underflow33
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)underflow62
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow17
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)underflow33
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow40
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow17
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow130
↳(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow38
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow116
↳(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))underflow22
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)underflow37
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow168
↳(pow.f64 b #s(literal 2 binary64))underflow58
↳(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))underflow60
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow52
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow210
↳(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow44
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)underflow60
↳(pow.f64 a #s(literal 2 binary64))underflow65
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow17
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)underflow37
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(pow.f64 b #s(literal 2 binary64))underflow58
↳(pow.f64 a #s(literal 2 binary64))underflow65
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow17
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)underflow33
*.f64(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))n*o280
/.f64(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)o/n270
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow97
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow59
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow45
/.f64(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)o/n240
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow75
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow103
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow37
-.f64(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))nan-rescue200
↳(pow.f64 b #s(literal 2 binary64))overflow75
↳(pow.f64 a #s(literal 2 binary64))overflow59
/.f64(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)o/n200
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow114
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(pow.f64 b #s(literal 2 binary64))overflow75
↳(pow.f64 a #s(literal 2 binary64))overflow59
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow114
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow87
-.f64(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))cancellation190
/.f64(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)o/n170
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow114
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow114
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(pow.f64 b #s(literal 2 binary64))overflow75
↳(pow.f64 a #s(literal 2 binary64))overflow59
/.f64(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)o/n170
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow75
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow103
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow37
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow97
/.f64(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))o/n140
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))overflow142
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow74
↳(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))overflow178
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))overflow142
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)overflow194
↳(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))overflow95
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)overflow174
↳(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))overflow178
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow180
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow114
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow87
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow194
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow114
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow118
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow150
↳(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))overflow142
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow84
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow90
↳(pow.f64 b #s(literal 2 binary64))overflow75
↳(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))overflow124
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow206
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)overflow194
↳(pow.f64 a #s(literal 2 binary64))overflow59
/.f64(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))n/o120
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))overflow114
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)overflow84
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))overflow86
↳(pow.f64 b #s(literal 2 binary64))overflow75
↳(pow.f64 a #s(literal 2 binary64))overflow59
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))overflow114
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)overflow87
sqrt.f64(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))uflow-rescue110
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)underflow44
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))underflow33
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))underflow22
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)underflow44
↳(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))underflow33
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)underflow31
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow17
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)underflow33
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow20
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow17
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow65
↳(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow19
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow58
↳(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))underflow22
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)underflow37
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow84
↳(pow.f64 b #s(literal 2 binary64))underflow58
↳(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))underflow60
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow26
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow105
↳(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow22
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)underflow30
↳(pow.f64 a #s(literal 2 binary64))underflow65
/.f64(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)o/n100
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow59
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))overflow45
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)overflow90
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))overflow97
/.f64(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)u/n70
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow20
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow65
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow84
↳(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow22
/.f64(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)u/n60
↳(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow19
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow58
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow26
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow105
/.f64(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))u/n60
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))underflow22
↳(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))underflow33
↳(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))underflow22
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)underflow88
↳(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))underflow49
↳(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)underflow88
↳(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))underflow33
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)underflow62
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow17
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)underflow33
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow40
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow17
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow130
↳(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow38
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow116
↳(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))underflow22
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)underflow37
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow168
↳(pow.f64 b #s(literal 2 binary64))underflow58
↳(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))underflow60
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow52
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow210
↳(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow44
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)underflow60
↳(pow.f64 a #s(literal 2 binary64))underflow65
/.f64(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)u/n40
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow17
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(pow.f64 b #s(literal 2 binary64))underflow58
↳(pow.f64 a #s(literal 2 binary64))underflow65
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow17
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)underflow33
/.f64(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)u/n20
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow17
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow17
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(pow.f64 b #s(literal 2 binary64))underflow58
↳(pow.f64 a #s(literal 2 binary64))underflow65
/.f64(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))n/u20
↳(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))underflow17
↳(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)underflow37
↳(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow28
↳(pow.f64 b #s(literal 2 binary64))underflow58
↳(pow.f64 a #s(literal 2 binary64))underflow65
↳(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))underflow17
↳(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)underflow33
/.f64(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)u/n10
↳(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow19
↳(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow58
↳(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow26
↳(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow105
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)underflow30
/.f64(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)u/n10
↳(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow65
↳(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))underflow84
↳(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))underflow22
↳(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)underflow31
↳(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))underflow20
Confusion
Predicted +Predicted -
+2230
-249
Precision
0.902834008097166
Recall
1.0
Confusion?
Predicted +Predicted MaybePredicted -
+22300
-2409
Precision?
0.902834008097166
Recall?
1.0
Freqs
test
numberfreq
09
149
236
354
446
538
623
71
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
135.0ms152×1valid
109.0ms78×2valid
101.0ms276×0valid
25.0ms6×3valid
Compiler

Compiled 3 179 to 139 computations (95.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 301.0ms
ival-pow2: 64.0ms (21.3% of total)
ival-div!: 63.0ms (20.9% of total)
ival-sinu: 54.0ms (18% of total)
ival-cosu: 42.0ms (14% of total)
ival-mult!: 32.0ms (10.6% of total)
adjust: 22.0ms (7.3% of total)
ival-sqrt: 7.0ms (2.3% of total)
ival-sub!: 7.0ms (2.3% of total)
ival-add!: 5.0ms (1.7% of total)
ival-atan: 5.0ms (1.7% of total)

preprocess44.0ms (0.2%)

Memory
-13.3MiB live, 38.4MiB allocated; 11ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
04523609
110883553
240283553
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶14.1%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
Symmetry

(abs a)

(abs b)

Compiler

Compiled 338 to 90 computations (73.4% saved)

series567.0ms (2.6%)

Memory
52.3MiB live, 660.2MiB allocated; 39ms collecting garbage
Counts
45 → 401
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)
(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)
(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
a
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
(/.f64 angle #s(literal 180 binary64))
angle
(PI.f64)
#s(literal 2 binary64)
(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
b
(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
y-scale
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)
(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)
(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
x-scale
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))
(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))
(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)
(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)
(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))
(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))
(pow.f64 b #s(literal 2 binary64))
(pow.f64 a #s(literal 2 binary64))
Outputs
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) #s(hole binary64 (* 180 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI)))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) #s(hole binary64 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI))))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) #s(hole binary64 (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))) (pow b 2)))))) (* 1/2 (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) y-scale) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* a (cos (* 1/180 (* angle (PI)))))))
#s(approx a #s(hole binary64 a))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* a (sin (* 1/180 (* angle (PI)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* 1/2 (* (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow a 2) (+ (* 1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow a 2) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow a 2) (+ (* -1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow a 2) (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow a 2) (+ (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow a 2) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* -8 (/ (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale)) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale)))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 2 (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (sin (* 1/180 (* angle (PI)))))) (* 2 (* (pow b 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (+ (* -2 (pow a 2)) (* 2 (pow b 2)))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (pow b 2)))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (+ (* -1 (pow a 2)) (pow b 2))))
#s(approx (pow a 2) #s(hole binary64 (pow a 2)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (+ (* 1/2 (/ (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))) (pow a 6))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) y-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) y-scale)))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) x-scale)))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* -1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow a 4)) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow a 4)) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* x-scale y-scale))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale y-scale))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) x-scale)) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) x-scale)))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* -2 (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* -2 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (sin (* 1/180 (* angle (PI))))) (* 2 (/ (* (pow b 2) (sin (* 1/180 (* angle (PI))))) (pow a 2)))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* (pow a 2) (- (* 2 (/ (pow b 2) (pow a 2))) 2))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (pow a 2)) 1))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))))) (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))) (pow a 2)))))) (* 1/2 (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2))))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* b (sin (* 1/180 (* angle (PI)))))))
#s(approx b #s(hole binary64 b))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* b (cos (* 1/180 (* angle (PI)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* 1/2 (* (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow b 2) (+ (* 1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow b 2) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow b 2) (+ (* -1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow b 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow b 2) (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow b 2) (+ (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow b 2) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* -8 (/ (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (pow b 2) #s(hole binary64 (pow b 2)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (+ (* 1/2 (/ (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))) (pow b 6))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) y-scale)))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) x-scale)))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* -1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow b 4)) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow b 4)) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale y-scale)))) (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* x-scale y-scale)))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) x-scale))) (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) x-scale))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (pow b 2))) (* 2 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (sin (* 1/180 (* angle (PI))))) (pow b 2))) (* 2 (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* (pow b 2) (+ 2 (* -2 (/ (pow a 2) (pow b 2)))))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* (pow b 2) (+ 1 (* -1 (/ (pow a 2) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2)))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))))) angle)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (pow a 2) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)))) (/ (pow a 2) y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) y-scale)) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) y-scale)))))) (/ (pow a 2) y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) y-scale)) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) y-scale) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) y-scale))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) y-scale))))))) (/ (pow a 2) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (pow a 2)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow a 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (pow a 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (+ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow angle 2) (+ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (pow a 2)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2)))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow a 2) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow a 2))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 a))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* -1/64800 (* a (* (pow angle 2) (pow (PI) 2)))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* (pow angle 2) (+ (* -1/64800 (* a (pow (PI) 2))) (* 1/25194240000 (* a (* (pow angle 2) (pow (PI) 4)))))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* (pow angle 2) (+ (* -1/64800 (* a (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* a (* (pow angle 2) (pow (PI) 6)))) (* 1/25194240000 (* a (pow (PI) 4))))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 1))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* (/ angle 180) (PI)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (/ angle 180) #s(hole binary64 (* 1/180 angle)))
#s(approx angle #s(hole binary64 angle))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* (pow b 2) (pow (PI) 4)))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/180 (* angle (* b (PI))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* b (pow (PI) 3)))) (* 1/180 (* b (PI)))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* 1/22674816000000 (* (pow angle 2) (* b (pow (PI) 5))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* b (pow (PI) 7)))) (* 1/22674816000000 (* b (pow (PI) 5)))))))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (pow b 2) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)))) (/ (pow b 2) x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) x-scale)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) x-scale)))))) (/ (pow b 2) x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) x-scale)) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) x-scale) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) x-scale))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) x-scale))))))) (/ (pow b 2) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (pow b 2)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (pow b 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (+ (* (pow angle 2) (+ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (pow b 2))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (* (pow angle 2) (pow (PI) 4)))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow a 2) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/180 (* a (* angle (PI))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* a (* (pow angle 2) (pow (PI) 3)))) (* 1/180 (* a (PI)))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* 1/22674816000000 (* a (* (pow angle 2) (pow (PI) 5))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* a (* (pow angle 2) (pow (PI) 7)))) (* 1/22674816000000 (* a (pow (PI) 5)))))))))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (pow b 2)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (pow b 2))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow b 2))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow b 2))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 b))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* -1/64800 (* (pow angle 2) (* b (pow (PI) 2)))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* 1/25194240000 (* (pow angle 2) (* b (pow (PI) 4)))))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* b (pow (PI) 6)))) (* 1/25194240000 (* b (pow (PI) 4))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* 1/2 (/ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2)))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow angle 2) (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2)))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 1/8100 (/ (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 1/90 (/ (* angle (* (PI) (- (pow b 2) (pow a 2)))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 2 (* (pow angle 2) (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))) (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale)))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* -1/1469328076800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* -1/4407984230400000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/30855889612800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale)))))))) (* 2 (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 1/90 (/ (* angle (* (PI) (- (pow b 2) (pow a 2)))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* 2 (* (pow angle 2) (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)))))) (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (+ (* -1/1469328076800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (+ (* -1/4407984230400000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (* -1/30855889612800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale))))))) (* 2 (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* 2 (* (pow angle 2) (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* 2 (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* 2 (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/17496000 (* (pow angle 2) (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (* 1/90 (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/17496000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* 1/11337408000000 (* (pow angle 2) (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/17496000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/15427944806400000000 (* (pow angle 2) (* (pow (PI) 7) (- (pow b 2) (pow a 2))))) (* 1/11337408000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) y-scale)))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))) (* x-scale y-scale)))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))) x-scale))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))) x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (/ (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* -1 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (- (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))) (* (pow x-scale 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* -2 (* (pow x-scale 2) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (+ (* -1 (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))))) x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* 1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 6) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (+ (* -1 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4)) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4)) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* -1 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2))))))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* -1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (+ (* -1 (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))) (* (pow y-scale 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* -2 (* (pow y-scale 2) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (- (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 6) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* -1 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 6) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4)) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4)) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (+ (* -1 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* -1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
Calls

15 calls:

TimeVariablePointExpression
77.0ms
b
@0
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow (* a (cos (* (/ angle 180) (PI)))) 2) (* a (cos (* (/ angle 180) (PI)))) a (cos (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) angle (PI) 2 (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ angle 180) (PI)))) b (sin (* (/ angle 180) (PI))) y-scale (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow (* a (sin (* (/ angle 180) (PI)))) 2) (* a (sin (* (/ angle 180) (PI)))) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) x-scale (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (* 2 (- (pow b 2) (pow a 2))) (- (pow b 2) (pow a 2)) (pow b 2) (pow a 2))
47.0ms
a
@0
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow (* a (cos (* (/ angle 180) (PI)))) 2) (* a (cos (* (/ angle 180) (PI)))) a (cos (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) angle (PI) 2 (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ angle 180) (PI)))) b (sin (* (/ angle 180) (PI))) y-scale (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow (* a (sin (* (/ angle 180) (PI)))) 2) (* a (sin (* (/ angle 180) (PI)))) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) x-scale (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (* 2 (- (pow b 2) (pow a 2))) (- (pow b 2) (pow a 2)) (pow b 2) (pow a 2))
47.0ms
a
@inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow (* a (cos (* (/ angle 180) (PI)))) 2) (* a (cos (* (/ angle 180) (PI)))) a (cos (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) angle (PI) 2 (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ angle 180) (PI)))) b (sin (* (/ angle 180) (PI))) y-scale (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow (* a (sin (* (/ angle 180) (PI)))) 2) (* a (sin (* (/ angle 180) (PI)))) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) x-scale (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (* 2 (- (pow b 2) (pow a 2))) (- (pow b 2) (pow a 2)) (pow b 2) (pow a 2))
41.0ms
angle
@inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow (* a (cos (* (/ angle 180) (PI)))) 2) (* a (cos (* (/ angle 180) (PI)))) a (cos (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) angle (PI) 2 (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ angle 180) (PI)))) b (sin (* (/ angle 180) (PI))) y-scale (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow (* a (sin (* (/ angle 180) (PI)))) 2) (* a (sin (* (/ angle 180) (PI)))) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) x-scale (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (* 2 (- (pow b 2) (pow a 2))) (- (pow b 2) (pow a 2)) (pow b 2) (pow a 2))
40.0ms
x-scale
@0
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow (* a (cos (* (/ angle 180) (PI)))) 2) (* a (cos (* (/ angle 180) (PI)))) a (cos (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) angle (PI) 2 (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ angle 180) (PI)))) b (sin (* (/ angle 180) (PI))) y-scale (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow (* a (sin (* (/ angle 180) (PI)))) 2) (* a (sin (* (/ angle 180) (PI)))) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) x-scale (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (* 2 (- (pow b 2) (pow a 2))) (- (pow b 2) (pow a 2)) (pow b 2) (pow a 2))

rewrite512.0ms (2.4%)

Memory
7.9MiB live, 601.7MiB allocated; 144ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
02541107917
0262899479
0811497351
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
446 → 492
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)
(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)
(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
a
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
(/.f64 angle #s(literal 180 binary64))
angle
(PI.f64)
#s(literal 2 binary64)
(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
b
(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
y-scale
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)
(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)
(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
x-scale
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))
(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))
(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)
(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)
(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))
(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))
(pow.f64 b #s(literal 2 binary64))
(pow.f64 a #s(literal 2 binary64))
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) #s(hole binary64 (* 180 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI)))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) #s(hole binary64 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI))))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) #s(hole binary64 (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))) (pow b 2)))))) (* 1/2 (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) y-scale) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* a (cos (* 1/180 (* angle (PI)))))))
#s(approx a #s(hole binary64 a))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* a (sin (* 1/180 (* angle (PI)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* 1/2 (* (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow a 2) (+ (* 1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow a 2) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow a 2) (+ (* -1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow a 2) (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow a 2) (+ (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow a 2) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* -8 (/ (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale)) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale)))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 2 (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (sin (* 1/180 (* angle (PI)))))) (* 2 (* (pow b 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (+ (* -2 (pow a 2)) (* 2 (pow b 2)))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (pow b 2)))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (+ (* -1 (pow a 2)) (pow b 2))))
#s(approx (pow a 2) #s(hole binary64 (pow a 2)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (+ (* 1/2 (/ (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))) (pow a 6))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) y-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) y-scale)))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) x-scale)))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* -1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow a 4)) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow a 4)) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* x-scale y-scale))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale y-scale))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) x-scale)) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) x-scale)))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* -2 (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* -2 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (sin (* 1/180 (* angle (PI))))) (* 2 (/ (* (pow b 2) (sin (* 1/180 (* angle (PI))))) (pow a 2)))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* (pow a 2) (- (* 2 (/ (pow b 2) (pow a 2))) 2))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (pow a 2)) 1))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))))) (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))) (pow a 2)))))) (* 1/2 (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2))))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* b (sin (* 1/180 (* angle (PI)))))))
#s(approx b #s(hole binary64 b))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* b (cos (* 1/180 (* angle (PI)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* 1/2 (* (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow b 2) (+ (* 1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow b 2) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow b 2) (+ (* -1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow b 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow b 2) (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow b 2) (+ (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow b 2) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* -8 (/ (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (pow b 2) #s(hole binary64 (pow b 2)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (+ (* 1/2 (/ (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))) (pow b 6))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) y-scale)))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) x-scale)))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* -1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow b 4)) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow b 4)) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale y-scale)))) (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* x-scale y-scale)))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) x-scale))) (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) x-scale))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (pow b 2))) (* 2 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (sin (* 1/180 (* angle (PI))))) (pow b 2))) (* 2 (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* (pow b 2) (+ 2 (* -2 (/ (pow a 2) (pow b 2)))))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* (pow b 2) (+ 1 (* -1 (/ (pow a 2) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2)))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))))) angle)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (pow a 2) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)))) (/ (pow a 2) y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) y-scale)) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) y-scale)))))) (/ (pow a 2) y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) y-scale)) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) y-scale) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) y-scale))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) y-scale))))))) (/ (pow a 2) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (pow a 2)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow a 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (pow a 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (+ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow angle 2) (+ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (pow a 2)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2)))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow a 2) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow a 2))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 a))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* -1/64800 (* a (* (pow angle 2) (pow (PI) 2)))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* (pow angle 2) (+ (* -1/64800 (* a (pow (PI) 2))) (* 1/25194240000 (* a (* (pow angle 2) (pow (PI) 4)))))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* (pow angle 2) (+ (* -1/64800 (* a (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* a (* (pow angle 2) (pow (PI) 6)))) (* 1/25194240000 (* a (pow (PI) 4))))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 1))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* (/ angle 180) (PI)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (/ angle 180) #s(hole binary64 (* 1/180 angle)))
#s(approx angle #s(hole binary64 angle))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* (pow b 2) (pow (PI) 4)))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/180 (* angle (* b (PI))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* b (pow (PI) 3)))) (* 1/180 (* b (PI)))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* 1/22674816000000 (* (pow angle 2) (* b (pow (PI) 5))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* b (pow (PI) 7)))) (* 1/22674816000000 (* b (pow (PI) 5)))))))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (pow b 2) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)))) (/ (pow b 2) x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) x-scale)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) x-scale)))))) (/ (pow b 2) x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) x-scale)) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) x-scale) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) x-scale))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) x-scale))))))) (/ (pow b 2) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (pow b 2)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (pow b 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (+ (* (pow angle 2) (+ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (pow b 2))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (* (pow angle 2) (pow (PI) 4)))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow a 2) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/180 (* a (* angle (PI))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* a (* (pow angle 2) (pow (PI) 3)))) (* 1/180 (* a (PI)))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* 1/22674816000000 (* a (* (pow angle 2) (pow (PI) 5))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* a (* (pow angle 2) (pow (PI) 7)))) (* 1/22674816000000 (* a (pow (PI) 5)))))))))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (pow b 2)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (pow b 2))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow b 2))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow b 2))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 b))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* -1/64800 (* (pow angle 2) (* b (pow (PI) 2)))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* 1/25194240000 (* (pow angle 2) (* b (pow (PI) 4)))))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* b (pow (PI) 6)))) (* 1/25194240000 (* b (pow (PI) 4))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* 1/2 (/ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2)))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow angle 2) (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2)))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 1/8100 (/ (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 1/90 (/ (* angle (* (PI) (- (pow b 2) (pow a 2)))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 2 (* (pow angle 2) (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))) (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale)))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* -1/1469328076800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* -1/4407984230400000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/30855889612800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale)))))))) (* 2 (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 1/90 (/ (* angle (* (PI) (- (pow b 2) (pow a 2)))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* 2 (* (pow angle 2) (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)))))) (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (+ (* -1/1469328076800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (+ (* -1/4407984230400000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (* -1/30855889612800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale))))))) (* 2 (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* 2 (* (pow angle 2) (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* 2 (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* 2 (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/17496000 (* (pow angle 2) (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (* 1/90 (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/17496000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* 1/11337408000000 (* (pow angle 2) (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/17496000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/15427944806400000000 (* (pow angle 2) (* (pow (PI) 7) (- (pow b 2) (pow a 2))))) (* 1/11337408000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) y-scale)))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))) (* x-scale y-scale)))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))) x-scale))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))) x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (/ (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* -1 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (- (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))) (* (pow x-scale 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* -2 (* (pow x-scale 2) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (+ (* -1 (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))))) x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* 1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 6) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (+ (* -1 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4)) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4)) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* -1 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2))))))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* -1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (+ (* -1 (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))) (* (pow y-scale 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* -2 (* (pow y-scale 2) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (- (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 6) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* -1 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 6) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4)) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4)) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (+ (* -1 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* -1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (neg.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (neg.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))) (neg.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(-.f64 (/.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)) (/.f64 (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) x-scale) (*.f64 y-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale))) (*.f64 y-scale x-scale))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))
(/.f64 (neg.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)) (neg.f64 y-scale))
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))) (neg.f64 y-scale))
(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)
(+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) y-scale) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) y-scale))
(/.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) (*.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))))))
(fma.f64 (*.f64 a a) (pow.f64 (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(*.f64 (*.f64 a a) (pow.f64 (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))))
(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))) #s(literal 2 binary64)))
(*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
a
(sin.f64 (fma.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
(/.f64 (neg.f64 angle) #s(literal -180 binary64))
(/.f64 angle #s(literal 180 binary64))
angle
(PI.f64)
#s(literal 2 binary64)
(*.f64 (*.f64 b b) (pow.f64 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))))
(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))) #s(literal 2 binary64)))
(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
b
(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
y-scale
(/.f64 (neg.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)) (neg.f64 x-scale))
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))) (neg.f64 x-scale))
(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)
(+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) x-scale) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) x-scale))
(/.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) (*.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))))))
(fma.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))))
(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))) #s(literal 2 binary64)))
(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))))
(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))) #s(literal 2 binary64)))
(*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
x-scale
(pow.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))
(hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(/.f64 (+.f64 (pow.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))))
(fma.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))
(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))
(*.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)))
(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) y-scale) (*.f64 x-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale))) (*.f64 x-scale y-scale))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))
(*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)) #s(literal 2 binary64)))
(/.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)) (neg.f64 y-scale))
(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))) (neg.f64 x-scale))
(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)
(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
(*.f64 b b)
(pow.f64 b #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 b) #s(literal 2 binary64)))
(*.f64 a a)
(pow.f64 a #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 a) #s(literal 2 binary64)))
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) (PI.f64))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (/.f64 (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) (PI.f64)))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))) (*.f64 b b))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) y-scale))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) y-scale))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* a (cos (* (/ angle 180) (PI)))) (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx a a)
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) x-scale))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) x-scale))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 a a) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (*.f64 a a) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 a (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale)))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) x-scale)))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) x-scale) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) x-scale))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (fma.f64 #s(literal -2 binary64) (*.f64 a a) (*.f64 #s(literal 2 binary64) (*.f64 b b))))
#s(approx (- (pow b 2) (pow a 2)) (*.f64 b b))
#s(approx (- (pow b 2) (pow a 2)) (fma.f64 #s(literal -1 binary64) (*.f64 a a) (*.f64 b b)))
#s(approx (pow a 2) (*.f64 a a))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))) (pow.f64 a #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 a #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 (*.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) y-scale))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) y-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a a)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) x-scale))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a a)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 a a) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 a #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 a a)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 a a)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 a #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 a a)) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 a a)) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 a #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 (*.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) y-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) y-scale)))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) x-scale)))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) x-scale) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) x-scale))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 a a))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 a a))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (*.f64 #s(literal -2 binary64) (*.f64 a a)))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))
#s(approx (- (pow b 2) (pow a 2)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
#s(approx (- (pow b 2) (pow a 2)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 b b) (*.f64 a a)) #s(literal 1 binary64))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)))) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx b b)
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* b (cos (* (/ angle 180) (PI)))) (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 b (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (- (pow b 2) (pow a 2)) (-.f64 (*.f64 b b) (*.f64 a a)))
#s(approx (pow b 2) (*.f64 b b))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (pow.f64 b #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))) (pow.f64 b #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 b #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 (*.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) y-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 b b)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 b b)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 b b) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 b #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 b b)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 b b)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 b b)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 b b)) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 (*.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) y-scale))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) x-scale)))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 b b)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 b b)) (*.f64 #s(literal 2 binary64) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (*.f64 (*.f64 b b) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 a a) (*.f64 b b))))))
#s(approx (- (pow b 2) (pow a 2)) (*.f64 (*.f64 b b) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 a a) (*.f64 b b))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))))) angle))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) angle))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/881596846080000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))))))) angle))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (fma.f64 (*.f64 angle angle) (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)))) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (fma.f64 (*.f64 angle angle) (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale))) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (fma.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (*.f64 a a) y-scale))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) y-scale) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) y-scale))))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) y-scale) (fma.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) y-scale) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) y-scale)))))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (*.f64 a a))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)))) (*.f64 a a)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 a a)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))) (*.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (*.f64 a a))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 a a) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64))) (*.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (*.f64 a a)))
#s(approx (* a (cos (* (/ angle 180) (PI)))) a)
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (*.f64 #s(literal -1/64800 binary64) (*.f64 a (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 a (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 a (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(literal 1 binary64))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* (/ angle 180) (PI)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (/ angle 180) (*.f64 #s(literal 1/180 binary64) angle))
#s(approx angle angle)
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 b (PI.f64)))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 b (PI.f64))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 b (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 b (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 7 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (sin (* (/ angle 180) (PI))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (sin (* (/ angle 180) (PI))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* (/ angle 180) (PI))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))
#s(approx (sin (* (/ angle 180) (PI))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (*.f64 b b) x-scale))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) x-scale) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) x-scale))))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) x-scale) (fma.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) x-scale) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) x-scale)))))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)))) (*.f64 b b)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 b b)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 b b)))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (PI.f64))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 a (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 a (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (*.f64 b b))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))) (*.f64 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (*.f64 b b)))
#s(approx (* b (cos (* (/ angle 180) (PI)))) b)
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 (*.f64 angle angle) (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 4 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 4 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal 1/90 binary64) (*.f64 (/.f64 angle x-scale) (/.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (/.f64 (PI.f64) x-scale) (/.f64 (-.f64 (*.f64 b b) (*.f64 a a)) y-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (/.f64 (PI.f64) x-scale) (/.f64 (-.f64 (*.f64 b b) (*.f64 a a)) y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal 1/2267481600000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (/.f64 (PI.f64) x-scale) (/.f64 (-.f64 (*.f64 b b) (*.f64 a a)) y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/30855889612800000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale))))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal 1/2267481600000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)))))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale)))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal 1/2267481600000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale)))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (fma.f64 #s(literal -1/1469328076800000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (fma.f64 #s(literal -1/4407984230400000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/30855889612800000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale)))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal 1/2267481600000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 #s(literal 1/90 binary64) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal 1/90 binary64) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal -1/17496000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/17496000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/11337408000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/17496000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/15427944806400000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 1/11337408000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) y-scale))
#s(approx (cos (* (/ angle 180) (PI))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (sin (* (/ angle 180) (PI))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) x-scale))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 x-scale y-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale)))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) x-scale))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 (*.f64 x-scale x-scale) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx x-scale x-scale)
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) (*.f64 x-scale x-scale)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (pow.f64 (*.f64 x-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 x-scale x-scale) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (pow.f64 (*.f64 x-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) x-scale))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 x-scale x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 6 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 x-scale x-scale)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))
#s(approx y-scale y-scale)
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) (*.f64 y-scale y-scale)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (pow.f64 (*.f64 y-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 y-scale y-scale) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (pow.f64 (*.f64 y-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (/.f64 (-.f64 (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 y-scale y-scale)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))

eval220.0ms (1%)

Memory
18.1MiB live, 243.5MiB allocated; 37ms collecting garbage
Compiler

Compiled 231 163 to 7 881 computations (96.6% saved)

prune132.0ms (0.6%)

Memory
-4.3MiB live, 104.8MiB allocated; 93ms collecting garbage
Pruning

21 alts after pruning (21 fresh and 0 done)

PrunedKeptTotal
New88621907
Fresh000
Picked101
Done000
Total88721908
Accuracy
60.6%
Counts
908 → 21
Alt Table
Click to see full alt table
StatusAccuracyProgram
14.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
9.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 #s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 #s(literal 1/90 binary64) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) x-scale) y-scale))) (PI.f64)))
7.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) #s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale)))))) (PI.f64)))
14.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b #s(approx (sin (* (/ angle 180) (PI))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
14.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
▶13.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
▶13.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
11.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b #s(approx (sin (* (/ angle 180) (PI))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
12.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
▶6.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
5.0%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
11.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
19.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
▶9.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
▶27.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
27.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (PI.f64)))
5.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (PI.f64)))
3.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
21.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
12.0%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
22.1%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
Compiler

Compiled 9 386 to 3 134 computations (66.6% saved)

series894.0ms (4.1%)

Memory
5.1MiB live, 882.1MiB allocated; 91ms collecting garbage
Counts
128 → 904
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(literal 1/2 binary64)
(*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
x-scale
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
y-scale
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(literal 2 binary64)
(*.f64 y-scale y-scale)
(+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(literal 4 binary64)
(/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-scale y-scale)
(pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(*.f64 x-scale x-scale)
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
(*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(literal 90 binary64)
(*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 x-scale angle)
(/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))
(*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))
(-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))
(/.f64 (*.f64 a a) (*.f64 y-scale y-scale))
(*.f64 a a)
a
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))
(/.f64 (*.f64 b b) (*.f64 x-scale x-scale))
(*.f64 b b)
b
(*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)
(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)
(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
(/.f64 angle #s(literal 180 binary64))
(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)
(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)
(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
(-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))
(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)
(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)
(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))
(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))
(pow.f64 b #s(literal 2 binary64))
(pow.f64 a #s(literal 2 binary64))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
(-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
(/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(pow.f64 b #s(literal 4 binary64))
(pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale))
(/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)
(/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale)
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))
(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))
(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))
Outputs
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) #s(hole binary64 (* 180 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI)))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) #s(hole binary64 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI))))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) #s(hole binary64 (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))) (pow b 2)))))) (* 1/2 (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* (pow a 2) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ y-scale (* (pow x-scale 2) (PI))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 2))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI)))))) (pow b 2)))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* 2 (/ (pow a 2) y-scale)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* 2 (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (* a a) (* y-scale y-scale)) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (* a a) #s(hole binary64 (pow a 2)))
#s(approx a #s(hole binary64 a))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (PI))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (PI))) (* (pow b 2) (PI)))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (pow b 2)))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (+ (* -1 (pow a 2)) (pow b 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) y-scale) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* a (cos (* 1/180 (* angle (PI)))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* a (sin (* 1/180 (* angle (PI)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* 1/2 (* (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow a 2) (+ (* 1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow a 2) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow a 2) (+ (* -1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (+ (* -1 (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale)) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale)))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 2 (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (sin (* 1/180 (* angle (PI)))))) (* 2 (* (pow b 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (+ (* -2 (pow a 2)) (* 2 (pow b 2)))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (pow b 2)))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (+ (* -1 (pow a 2)) (pow b 2))))
#s(approx (pow a 2) #s(hole binary64 (pow a 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow a 2) (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow a 2) (+ (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow a 2) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* -8 (/ (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (+ (* 1/2 (/ (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))) (pow a 6))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (+ (* 90 (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI))))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4)))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ -2 (* y-scale (PI)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 6))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (pow a 2) y-scale))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 y-scale))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (pow b 2) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 (pow y-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (PI)))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (PI)) (/ (* (pow b 2) (PI)) (pow a 2))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (pow a 2)) 1))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) y-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) y-scale)))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) x-scale)))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* -1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (* (pow a 2) (pow x-scale 2))) (/ 1 (pow y-scale 2))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* x-scale y-scale))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale y-scale))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) x-scale)) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) x-scale)))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* -2 (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* -2 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (sin (* 1/180 (* angle (PI))))) (* 2 (/ (* (pow b 2) (sin (* 1/180 (* angle (PI))))) (pow a 2)))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* (pow a 2) (- (* 2 (/ (pow b 2) (pow a 2))) 2))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (pow a 2)) 1))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow a 4)) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow a 4)) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))))) (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))) (pow a 2)))))) (* 1/2 (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* (pow b 2) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 2))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* b b) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (* b b) (* x-scale x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx b #s(hole binary64 b))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* b (sin (* 1/180 (* angle (PI)))))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* b (cos (* 1/180 (* angle (PI)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* 1/2 (* (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow b 2) (+ (* 1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow b 2) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow b 2) (+ (* -1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (pow b 2) #s(hole binary64 (pow b 2)))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* b (sin (* 1/180 (* angle (PI)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (* (pow b 2) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (* (pow b 4) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) #s(hole binary64 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow b 4) #s(hole binary64 (pow b 4)))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (* (pow b 4) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (* b (cos (* 1/180 (* angle (PI)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow b 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow b 2) (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow b 2) (+ (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow b 2) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* -8 (/ (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (+ (* 1/2 (/ (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))) (pow b 6))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (+ (* 90 (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 4) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ y-scale (pow x-scale 2))) (* 2 (/ (pow a 2) (* (pow b 2) y-scale)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ (pow a 2) (* (pow b 2) (pow y-scale 2)))) (* 2 (/ 1 (pow x-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (PI) (* -1 (/ (* (pow a 2) (PI)) (pow b 2)))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow b 2) (+ 1 (* -1 (/ (pow a 2) (pow b 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) y-scale)))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) x-scale)))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* -1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (pow a 2) (* (pow b 2) (pow y-scale 2)))) (/ 1 (pow x-scale 2))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale y-scale)))) (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* x-scale y-scale)))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) x-scale))) (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) x-scale))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (pow b 2))) (* 2 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (sin (* 1/180 (* angle (PI))))) (pow b 2))) (* 2 (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* (pow b 2) (+ 2 (* -2 (/ (pow a 2) (pow b 2)))))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* (pow b 2) (+ 1 (* -1 (/ (pow a 2) (pow b 2)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow b 4)) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow b 4)) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2)))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))) (* x-scale (pow (PI) 2)))) (+ (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))) (PI))) (* 180 (/ (* (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5)))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -360 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))) (* x-scale (pow (PI) 2)))) (+ (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))) (PI))) (* 180 (/ (* (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5)))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))) angle)))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 x-scale))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* 1/64800 (* (pow angle 2) (* x-scale (pow (PI) 2)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/24488801280000000 (* x-scale (pow (PI) 6))) (+ (* 1/1632586752000000 (* x-scale (pow (PI) 6))) (* 1/64800 (* (pow (PI) 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))))))) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -360 (/ y-scale (* angle (* (pow x-scale 2) (PI)))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow angle 2) (- (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) angle)))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* (pow angle 2) (- (* 180 (/ (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (PI))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) (* -1/349920000 (/ (* y-scale (pow (PI) 3)) (pow x-scale 2))))))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) angle)))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (PI))) (* (pow angle 2) (- (* 180 (/ (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (PI))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (PI))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) (* -1/349920000 (/ (* y-scale (pow (PI) 3)) (pow x-scale 2))))))) (+ (* 1/476171136000000 (/ (* y-scale (pow (PI) 5)) (pow x-scale 2))) (* 1/125971200000 (* (pow (PI) 4) (- (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2))))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) (* -1/349920000 (/ (* y-scale (pow (PI) 3)) (pow x-scale 2))))))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) angle)))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -2 (/ y-scale (pow x-scale 2)))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ y-scale (pow x-scale 2))) (* (pow angle 2) (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ y-scale (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ y-scale (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* (pow angle 2) (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ -2 (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (pow (PI) 4))) (* 1/32400 (pow (PI) 2))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ 2 (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (+ (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (+ (* 1/2267481600000 (pow (PI) 5)) (* (pow angle 2) (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))))))))))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* -1/32400 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (/ x-scale angle) #s(hole binary64 (/ x-scale angle)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (pow a 2) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)))) (/ (pow a 2) y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) y-scale)) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) y-scale)))))) (/ (pow a 2) y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) y-scale)) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) y-scale) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) y-scale))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) y-scale))))))) (/ (pow a 2) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (pow a 2)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow a 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (pow a 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (+ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow angle 2) (+ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (pow a 2)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2)))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow a 2) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow a 2))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 a))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* -1/64800 (* a (* (pow angle 2) (pow (PI) 2)))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* (pow angle 2) (+ (* -1/64800 (* a (pow (PI) 2))) (* 1/25194240000 (* a (* (pow angle 2) (pow (PI) 4)))))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* (pow angle 2) (+ (* -1/64800 (* a (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* a (* (pow angle 2) (pow (PI) 6)))) (* 1/25194240000 (* a (pow (PI) 4))))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 1))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* (/ angle 180) (PI)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (/ angle 180) #s(hole binary64 (* 1/180 angle)))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* (pow b 2) (pow (PI) 4)))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/180 (* angle (* b (PI))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* b (pow (PI) 3)))) (* 1/180 (* b (PI)))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* 1/22674816000000 (* (pow angle 2) (* b (pow (PI) 5))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* b (pow (PI) 7)))) (* 1/22674816000000 (* b (pow (PI) 5)))))))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (pow b 2) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)))) (/ (pow b 2) x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) x-scale)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) x-scale)))))) (/ (pow b 2) x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) x-scale)) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) x-scale) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) x-scale))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) x-scale))))))) (/ (pow b 2) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (pow b 2)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (pow b 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (+ (* (pow angle 2) (+ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (pow b 2))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (* (pow angle 2) (pow (PI) 4)))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow a 2) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/180 (* a (* angle (PI))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* a (* (pow angle 2) (pow (PI) 3)))) (* 1/180 (* a (PI)))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* 1/22674816000000 (* a (* (pow angle 2) (pow (PI) 5))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* a (* (pow angle 2) (pow (PI) 7)))) (* 1/22674816000000 (* a (pow (PI) 5)))))))))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (pow b 2)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (pow b 2))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow b 2))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow b 2))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 b))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* -1/64800 (* (pow angle 2) (* b (pow (PI) 2)))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* 1/25194240000 (* (pow angle 2) (* b (pow (PI) 4)))))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* b (pow (PI) 6)))) (* 1/25194240000 (* b (pow (PI) 4))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* 1/2 (/ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 1/90 (/ (* angle (* (PI) (- (pow b 2) (pow a 2)))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 2 (* (pow angle 2) (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))) (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale)))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* -1/1469328076800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* -1/4407984230400000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/30855889612800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale)))))))) (* 2 (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 1/90 (/ (* angle (* (PI) (- (pow b 2) (pow a 2)))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* 2 (* (pow angle 2) (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)))))) (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (+ (* -1/1469328076800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (+ (* -1/4407984230400000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (* -1/30855889612800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale))))))) (* 2 (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* 2 (* (pow angle 2) (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* 2 (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* 2 (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/17496000 (* (pow angle 2) (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (* 1/90 (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/17496000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* 1/11337408000000 (* (pow angle 2) (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/17496000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/15427944806400000000 (* (pow angle 2) (* (pow (PI) 7) (- (pow b 2) (pow a 2))))) (* 1/11337408000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2))))))))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2)))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4))))) (pow b 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2)))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* (pow angle 2) (- (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (* (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow x-scale 2) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 4) (* (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4)))))) (pow b 4))))) (pow b 2))) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4))))) (pow b 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2)))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow y-scale 2)))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 4))) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow y-scale 2))))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* (pow b 2) (pow (PI) 4)))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* angle (* b (PI))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* b (pow (PI) 3)))) (* 1/180 (* b (PI)))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* 1/22674816000000 (* (pow angle 2) (* b (pow (PI) 5))))))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* b (pow (PI) 7)))) (* 1/22674816000000 (* b (pow (PI) 5)))))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4))))) (pow b 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4))))) (pow b 2))) (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (* (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow x-scale 2) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 4) (* (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4)))))) (pow b 4))))) (pow b 2))) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))))) (pow b 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4)))))) (pow b 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 2 (* (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow x-scale 2) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 4) (* (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4)))))) (pow b 4)))))) (pow b 2))) (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4))))) (pow b 2))))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow b 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))))))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow angle 2) (+ (* 2 (* (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2)))))))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* (pow b 4) (pow (PI) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (pow angle 2) (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))) (* (pow x-scale 2) (pow y-scale 2)))))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (* (pow x-scale 2) (pow y-scale 2))) (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))) (* (pow x-scale 2) (pow y-scale 2))) (/ (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow x-scale 2) (pow y-scale 2))))) (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 4) (pow (PI) 2))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 4) (pow (PI) 2))) (* (pow angle 2) (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 4) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 4) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))) (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))) (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow b 4) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* 2 (/ (* (pow angle 2) (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (pow x-scale 2))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* (pow angle 2) (+ (* 2 (* (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (pow x-scale 2))))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2)))))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow x-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (pow x-scale 2)))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (pow b 2)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (pow b 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow b 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow b 2))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 b))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* -1/64800 (* (pow angle 2) (* b (pow (PI) 2)))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* 1/25194240000 (* (pow angle 2) (* b (pow (PI) 4)))))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* b (pow (PI) 6)))) (* 1/25194240000 (* b (pow (PI) 4))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2)))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow angle 2) (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2)))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 1/8100 (/ (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (/ x-scale (cos (* 1/180 (* angle (PI)))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 2)))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 2)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) y-scale)))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))) (* x-scale y-scale)))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))) x-scale))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* -1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* (pow x-scale 2) (+ (* -1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/4 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI))))))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale)))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (sin (* 1/180 (* angle (PI)))))) (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* -1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI))))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sin (* 1/180 (* angle (PI)))))))) (pow x-scale 2))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* (pow x-scale 2) (+ (* -1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI))))))) (* 1/4 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sin (* 1/180 (* angle (PI))))))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sin (* 1/180 (* angle (PI)))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 6)))))))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (* x-scale y-scale) 2) #s(hole binary64 (* (pow x-scale 2) (pow y-scale 2))))
#s(approx (* x-scale y-scale) #s(hole binary64 (* x-scale y-scale)))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow x-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 180 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* (PI) (- (pow b 2) (pow a 2))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* (pow b 2) y-scale)) (* 2 (/ (* (pow a 2) (pow x-scale 2)) y-scale))) (pow x-scale 2))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 2 (/ (* (pow a 2) (pow x-scale 2)) (pow y-scale 2))) (* 2 (pow b 2))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (/ (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* -1 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (- (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 2))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a 2) (pow x-scale 2)) (pow y-scale 2))) (pow b 2)) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (/ (* (pow b 4) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow y-scale 4)))))) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 4) (* (pow x-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (/ (* (pow b 4) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow y-scale 4))))) (pow x-scale 4))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))) (* (pow x-scale 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* -2 (* (pow x-scale 2) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (+ (* -1 (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (* 1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (* 1/2 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))) x-scale)))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sin (* 1/180 (* angle (PI)))))) (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (pow x-scale 2))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sin (* 1/180 (* angle (PI)))))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 7)))))) (pow x-scale 2))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sin (* 1/180 (* angle (PI)))))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (+ (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 7)))) (* 1/2 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 3))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -1 (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -1 (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -1 (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* -1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 180 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* x-scale (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* x-scale (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* 1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 6) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (+ (* -1 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* -1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 8) (pow (sin (* 1/180 (* angle (PI)))) 8)))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4)) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4)) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* -1 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) x-scale))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* -1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* x-scale (+ (* -180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2))))))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7)))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/2 (/ (* x-scale (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/2 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/2 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* (pow y-scale 2) (+ (* 1/4 (/ (* x-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7)))) (* 1/2 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -1 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (sin (* 1/180 (* angle (PI)))))) (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (sin (* 1/180 (* angle (PI)))))) (* (pow y-scale 2) (+ (* -1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 3))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 7)))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (sin (* 1/180 (* angle (PI)))))) (* (pow y-scale 2) (+ (* -1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 3))) (* (pow y-scale 2) (+ (* 1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 7))) (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -1 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -1 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (pow y-scale 2) (+ (* -1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6)))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -1 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (pow y-scale 2) (+ (* -1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* 1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -1 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (PI) (- (pow b 2) (pow a 2)))))) y-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) y-scale)))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) (pow y-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* -1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (+ (* -1 (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2)) (pow a 2)) (pow y-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -1 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* -1/2 (/ (* (pow y-scale 2) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 8) (pow (sin (* 1/180 (* angle (PI)))) 8)))) (* 1/4 (/ (pow (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (/ (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow x-scale 4)))))) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 4) (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (/ (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow x-scale 4))))) (pow y-scale 4))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))) (* (pow y-scale 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* -2 (* (pow y-scale 2) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (- (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (/ (sin (* 1/180 (* angle (PI)))) (pow y-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (/ (sin (* 1/180 (* angle (PI)))) (pow y-scale 2)))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sin (* 1/180 (* angle (PI)))))))) (/ (sin (* 1/180 (* angle (PI)))) (pow y-scale 2))))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* y-scale (+ (* -180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 6) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* -1 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 6) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* -1 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4)) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4)) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (+ (* -1 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* -1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* -1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/2 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* -1/4 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/2 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (sin (* 1/180 (* angle (PI)))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (pow y-scale 2))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (sin (* 1/180 (* angle (PI)))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (sin (* 1/180 (* angle (PI)))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (pow y-scale 2))) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))))
Calls

15 calls:

TimeVariablePointExpression
108.0ms
angle
@0
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) 2 (* y-scale y-scale) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (/ (* a a) (* y-scale y-scale))) (/ (* a a) (* y-scale y-scale)) (* a a) a (* 2 (/ (* b b) (* x-scale x-scale))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow (* a (cos (* (/ angle 180) (PI)))) 2) (* a (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ angle 180) (PI)))) (sin (* (/ angle 180) (PI))) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow (* a (sin (* (/ angle 180) (PI)))) 2) (* a (sin (* (/ angle 180) (PI)))) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (* 2 (- (pow b 2) (pow a 2))) (- (pow b 2) (pow a 2)) (pow b 2) (pow a 2) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow b 4) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))
67.0ms
y-scale
@inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) 2 (* y-scale y-scale) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (/ (* a a) (* y-scale y-scale))) (/ (* a a) (* y-scale y-scale)) (* a a) a (* 2 (/ (* b b) (* x-scale x-scale))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow (* a (cos (* (/ angle 180) (PI)))) 2) (* a (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ angle 180) (PI)))) (sin (* (/ angle 180) (PI))) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow (* a (sin (* (/ angle 180) (PI)))) 2) (* a (sin (* (/ angle 180) (PI)))) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (* 2 (- (pow b 2) (pow a 2))) (- (pow b 2) (pow a 2)) (pow b 2) (pow a 2) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow b 4) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))
57.0ms
b
@inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) 2 (* y-scale y-scale) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (/ (* a a) (* y-scale y-scale))) (/ (* a a) (* y-scale y-scale)) (* a a) a (* 2 (/ (* b b) (* x-scale x-scale))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow (* a (cos (* (/ angle 180) (PI)))) 2) (* a (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ angle 180) (PI)))) (sin (* (/ angle 180) (PI))) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow (* a (sin (* (/ angle 180) (PI)))) 2) (* a (sin (* (/ angle 180) (PI)))) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (* 2 (- (pow b 2) (pow a 2))) (- (pow b 2) (pow a 2)) (pow b 2) (pow a 2) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow b 4) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))
55.0ms
x-scale
@inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) 2 (* y-scale y-scale) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (/ (* a a) (* y-scale y-scale))) (/ (* a a) (* y-scale y-scale)) (* a a) a (* 2 (/ (* b b) (* x-scale x-scale))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow (* a (cos (* (/ angle 180) (PI)))) 2) (* a (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ angle 180) (PI)))) (sin (* (/ angle 180) (PI))) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow (* a (sin (* (/ angle 180) (PI)))) 2) (* a (sin (* (/ angle 180) (PI)))) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (* 2 (- (pow b 2) (pow a 2))) (- (pow b 2) (pow a 2)) (pow b 2) (pow a 2) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow b 4) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))
52.0ms
b
@-inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) 2 (* y-scale y-scale) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (/ (* a a) (* y-scale y-scale))) (/ (* a a) (* y-scale y-scale)) (* a a) a (* 2 (/ (* b b) (* x-scale x-scale))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow (* a (cos (* (/ angle 180) (PI)))) 2) (* a (cos (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI))) (* (/ angle 180) (PI)) (/ angle 180) (pow (* b (sin (* (/ angle 180) (PI)))) 2) (* b (sin (* (/ angle 180) (PI)))) (sin (* (/ angle 180) (PI))) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow (* a (sin (* (/ angle 180) (PI)))) 2) (* a (sin (* (/ angle 180) (PI)))) (pow (* b (cos (* (/ angle 180) (PI)))) 2) (* b (cos (* (/ angle 180) (PI)))) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (* 2 (- (pow b 2) (pow a 2))) (- (pow b 2) (pow a 2)) (pow b 2) (pow a 2) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow b 4) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))

rewrite685.0ms (3.2%)

Memory
61.5MiB live, 851.5MiB allocated; 82ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
05385201210
05638189130
08373185299
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
1 032 → 1 154
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(literal 1/2 binary64)
(*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
x-scale
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
y-scale
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(literal 2 binary64)
(*.f64 y-scale y-scale)
(+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(literal 4 binary64)
(/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-scale y-scale)
(pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(*.f64 x-scale x-scale)
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
(*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(literal 90 binary64)
(*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 x-scale angle)
(/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))
(*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))
(-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))
(/.f64 (*.f64 a a) (*.f64 y-scale y-scale))
(*.f64 a a)
a
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))
(/.f64 (*.f64 b b) (*.f64 x-scale x-scale))
(*.f64 b b)
b
(*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)
(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)
(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
(/.f64 angle #s(literal 180 binary64))
(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)
(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)
(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))
(-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))
(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)
(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)
(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))
(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))
(pow.f64 b #s(literal 2 binary64))
(pow.f64 a #s(literal 2 binary64))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
(-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
(/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(pow.f64 b #s(literal 4 binary64))
(pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale))
(/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)
(/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale)
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))
(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))
(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))
(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) #s(hole binary64 (* 180 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI)))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) #s(hole binary64 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI))))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) #s(hole binary64 (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))) (pow b 2)))))) (* 1/2 (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* (pow a 2) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ y-scale (* (pow x-scale 2) (PI))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 2))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI)))))) (pow b 2)))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* 2 (/ (pow a 2) y-scale)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* 2 (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (* a a) (* y-scale y-scale)) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (* a a) #s(hole binary64 (pow a 2)))
#s(approx a #s(hole binary64 a))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (PI))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (PI))) (* (pow b 2) (PI)))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (pow b 2)))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (+ (* -1 (pow a 2)) (pow b 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) y-scale) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* a (cos (* 1/180 (* angle (PI)))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) x-scale) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* a (sin (* 1/180 (* angle (PI)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* 1/2 (* (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow a 2) (+ (* 1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow a 2) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow a 2) (+ (* -1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (+ (* -1 (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale)) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale)))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 2 (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (+ (* -2 (* (pow a 2) (sin (* 1/180 (* angle (PI)))))) (* 2 (* (pow b 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (+ (* -2 (pow a 2)) (* 2 (pow b 2)))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (pow b 2)))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (+ (* -1 (pow a 2)) (pow b 2))))
#s(approx (pow a 2) #s(hole binary64 (pow a 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow a 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow a 2) (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow a 2) (+ (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow a 2) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* -8 (/ (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (+ (* 1/2 (/ (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))) (pow a 6))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (+ (* 90 (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI))))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4)))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ -2 (* y-scale (PI)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 6))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (pow a 2) y-scale))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 y-scale))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (pow b 2) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 (pow y-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (PI)))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (PI)) (/ (* (pow b 2) (PI)) (pow a 2))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (pow a 2)) 1))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow a 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) y-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) y-scale)))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) x-scale)))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow a 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow a 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* -1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow a 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (* (pow a 2) (pow x-scale 2))) (/ 1 (pow y-scale 2))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* x-scale y-scale))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale y-scale))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) x-scale)) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) x-scale)))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* -2 (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* 2 (/ (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* -2 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (sin (* 1/180 (* angle (PI))))) (* 2 (/ (* (pow b 2) (sin (* 1/180 (* angle (PI))))) (pow a 2)))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* -2 (pow a 2))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* (pow a 2) (- (* 2 (/ (pow b 2) (pow a 2))) 2))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (pow a 2)) 1))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow a 4)) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow a 4) (+ (* 2 (/ (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow a 2))) (+ (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow a 4)) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow a 4) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))))) (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))) (pow a 2)))))) (* 1/2 (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* (pow b 2) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 2))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* b b) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (* b b) (* x-scale x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx b #s(hole binary64 b))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* b (sin (* 1/180 (* angle (PI)))))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* b (cos (* 1/180 (* angle (PI)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* 1/2 (* (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow b 2) (+ (* 1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (* (pow b 2) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow b 2) (+ (* -1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (pow b 2) #s(hole binary64 (pow b 2)))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* b (sin (* 1/180 (* angle (PI)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (* (pow b 2) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (* (pow b 4) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) #s(hole binary64 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow b 4) #s(hole binary64 (pow b 4)))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (* (pow b 4) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (* b (cos (* 1/180 (* angle (PI)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow b 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow b 2) (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow b 2) (+ (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* (pow b 2) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* -8 (/ (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (+ (* 1/2 (/ (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))) (pow b 6))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (+ (* 90 (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 4) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ y-scale (pow x-scale 2))) (* 2 (/ (pow a 2) (* (pow b 2) y-scale)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ (pow a 2) (* (pow b 2) (pow y-scale 2)))) (* 2 (/ 1 (pow x-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (PI) (* -1 (/ (* (pow a 2) (PI)) (pow b 2)))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow b 2) (+ 1 (* -1 (/ (pow a 2) (pow b 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow b 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) y-scale)))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) x-scale)))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (* (pow b 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (* (pow b 2) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (+ (* -1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (* 1/2 (* (/ (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (pow b 2)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* 1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (* (pow b 2) (+ (* -1 (/ (pow a 2) (* (pow b 2) (pow y-scale 2)))) (/ 1 (pow x-scale 2))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale y-scale)))) (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* x-scale y-scale)))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) x-scale))) (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) x-scale))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (pow b 2))) (* 2 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (sin (* 1/180 (* angle (PI))))) (pow b 2))) (* 2 (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) #s(hole binary64 (* (pow b 2) (+ 2 (* -2 (/ (pow a 2) (pow b 2)))))))
#s(approx (- (pow b 2) (pow a 2)) #s(hole binary64 (* (pow b 2) (+ 1 (* -1 (/ (pow a 2) (pow b 2)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow b 4)) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (* (pow b 4) (+ (* 2 (/ (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (pow b 2))) (+ (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (pow b 4)) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow b 4) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (pow y-scale 2))))) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (* (pow x-scale 2) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2)))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))) (* x-scale (pow (PI) 2)))) (+ (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))) (PI))) (* 180 (/ (* (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5)))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -360 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))) (* x-scale (pow (PI) 2)))) (+ (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))) (PI))) (* 180 (/ (* (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5)))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))) angle)))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 x-scale))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* 1/64800 (* (pow angle 2) (* x-scale (pow (PI) 2)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/24488801280000000 (* x-scale (pow (PI) 6))) (+ (* 1/1632586752000000 (* x-scale (pow (PI) 6))) (* 1/64800 (* (pow (PI) 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))))))) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -360 (/ y-scale (* angle (* (pow x-scale 2) (PI)))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow angle 2) (- (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) angle)))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* (pow angle 2) (- (* 180 (/ (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (PI))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) (* -1/349920000 (/ (* y-scale (pow (PI) 3)) (pow x-scale 2))))))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) angle)))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -360 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (PI))) (* (pow angle 2) (- (* 180 (/ (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (PI))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (PI))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) (* -1/349920000 (/ (* y-scale (pow (PI) 3)) (pow x-scale 2))))))) (+ (* 1/476171136000000 (/ (* y-scale (pow (PI) 5)) (pow x-scale 2))) (* 1/125971200000 (* (pow (PI) 4) (- (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2))))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (PI))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) (* -1/349920000 (/ (* y-scale (pow (PI) 3)) (pow x-scale 2))))))) (* 1/540 (/ (* y-scale (PI)) (pow x-scale 2)))))) angle)))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -2 (/ y-scale (pow x-scale 2)))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ y-scale (pow x-scale 2))) (* (pow angle 2) (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ y-scale (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ y-scale (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* (pow angle 2) (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ -2 (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (pow (PI) 4))) (* 1/32400 (pow (PI) 2))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ 2 (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))))))) (* 2 (/ 1 (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (+ (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (+ (* 1/2267481600000 (pow (PI) 5)) (* (pow angle 2) (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))))))))))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* -1/32400 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (/ x-scale angle) #s(hole binary64 (/ x-scale angle)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 2 (/ (pow a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (/ (pow a 2) (pow y-scale 2)) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (/ (pow a 2) (pow y-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (pow a 2) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)))) (/ (pow a 2) y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) y-scale)) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) y-scale)))))) (/ (pow a 2) y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) y-scale)) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) y-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) y-scale)) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) y-scale) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) y-scale))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) y-scale))))))) (/ (pow a 2) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (pow a 2)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow a 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (pow a 2))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (+ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow angle 2) (+ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (pow a 2)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2)))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow a 2) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow a 2))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow a 2))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 a))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* -1/64800 (* a (* (pow angle 2) (pow (PI) 2)))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* (pow angle 2) (+ (* -1/64800 (* a (pow (PI) 2))) (* 1/25194240000 (* a (* (pow angle 2) (pow (PI) 4)))))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ a (* (pow angle 2) (+ (* -1/64800 (* a (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* a (* (pow angle 2) (pow (PI) 6)))) (* 1/25194240000 (* a (pow (PI) 4))))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 1))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* (/ angle 180) (PI)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (/ angle 180) #s(hole binary64 (* 1/180 angle)))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* (pow b 2) (pow (PI) 4)))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/180 (* angle (* b (PI))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* b (pow (PI) 3)))) (* 1/180 (* b (PI)))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* 1/22674816000000 (* (pow angle 2) (* b (pow (PI) 5))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* b (pow (PI) 7)))) (* 1/22674816000000 (* b (pow (PI) 5)))))))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (pow b 2) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)))) (/ (pow b 2) x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) x-scale)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) x-scale)))))) (/ (pow b 2) x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) x-scale)) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) x-scale)) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) x-scale)) (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) x-scale) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) x-scale))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) x-scale))))))) (/ (pow b 2) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (pow b 2)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow b 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (pow b 2))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (+ (* (pow angle 2) (+ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (pow b 2))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (* (pow angle 2) (pow (PI) 4)))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow a 2) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/180 (* a (* angle (PI))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* a (* (pow angle 2) (pow (PI) 3)))) (* 1/180 (* a (PI)))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* 1/22674816000000 (* a (* (pow angle 2) (pow (PI) 5))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* a (* (pow angle 2) (pow (PI) 7)))) (* 1/22674816000000 (* a (pow (PI) 5)))))))))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (pow b 2)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (pow b 2))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow b 2))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow b 2))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 b))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* -1/64800 (* (pow angle 2) (* b (pow (PI) 2)))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* 1/25194240000 (* (pow angle 2) (* b (pow (PI) 4)))))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* b (pow (PI) 6)))) (* 1/25194240000 (* b (pow (PI) 4))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* 1/2 (/ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (- (+ (* (pow angle 2) (+ (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 1/90 (/ (* angle (* (PI) (- (pow b 2) (pow a 2)))) (* x-scale y-scale)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 2 (* (pow angle 2) (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))) (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale)))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* -1/1469328076800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* -1/4407984230400000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* -1/30855889612800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) (* x-scale y-scale)))))))) (* 2 (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) (* x-scale y-scale))))))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 1/90 (/ (* angle (* (PI) (- (pow b 2) (pow a 2)))) x-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* 2 (* (pow angle 2) (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)))))) (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* angle (+ (* 1/90 (/ (* (PI) (- (pow b 2) (pow a 2))) x-scale)) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)) (* -1/34992000 (/ (* (pow (PI) 3) (- (pow b 2) (pow a 2))) x-scale)))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (+ (* -1/1469328076800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (+ (* -1/4407984230400000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale)) (* -1/30855889612800000000 (/ (* (pow (PI) 7) (- (pow b 2) (pow a 2))) x-scale))))))) (* 2 (+ (* 1/22674816000000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (+ (* 1/4534963200000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)) (* 1/2267481600000 (/ (* (pow (PI) 5) (- (pow b 2) (pow a 2))) x-scale)))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* 2 (* (pow angle 2) (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* 2 (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* 2 (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* 2 (* (pow angle 2) (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* 2 (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 1/90 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* -1/17496000 (* (pow angle 2) (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (* 1/90 (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/17496000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* 1/11337408000000 (* (pow angle 2) (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* angle (+ (* 1/90 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/17496000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/15427944806400000000 (* (pow angle 2) (* (pow (PI) 7) (- (pow b 2) (pow a 2))))) (* 1/11337408000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2))))))))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2)))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4))))) (pow b 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2)))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* (pow angle 2) (- (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (* (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow x-scale 2) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 4) (* (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4)))))) (pow b 4))))) (pow b 2))) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4))))) (pow b 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2)))))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow y-scale 2)))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 4))) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow y-scale 2))))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* (pow b 2) (pow (PI) 4)))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* angle (* b (PI))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* b (pow (PI) 3)))) (* 1/180 (* b (PI)))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* 1/22674816000000 (* (pow angle 2) (* b (pow (PI) 5))))))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (* b (PI))) (* (pow angle 2) (+ (* -1/34992000 (* b (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* b (pow (PI) 7)))) (* 1/22674816000000 (* b (pow (PI) 5)))))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4))))) (pow b 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4))))) (pow b 2))) (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (* (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow x-scale 2) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 4) (* (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4)))))) (pow b 4))))) (pow b 2))) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))))) (pow b 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4)))))) (pow b 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (pow b 2))) (* (pow angle 2) (+ (* 1/2 (/ (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 2 (* (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow x-scale 2) (pow y-scale 2)))))) (* 1/2 (/ (* (pow x-scale 4) (* (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4)))))) (pow b 4)))))) (pow b 2))) (* 1/2 (/ (* (pow x-scale 2) (- (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2)))) 2)) (pow b 4))))) (pow b 2))))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow b 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))))))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* (pow angle 2) (+ (* 2 (* (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2)))))))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* (pow b 4) (pow (PI) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (pow angle 2) (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))) (* (pow x-scale 2) (pow y-scale 2)))))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (* (pow x-scale 2) (pow y-scale 2))) (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow b 4) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))) (* (pow x-scale 2) (pow y-scale 2))) (/ (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow x-scale 2) (pow y-scale 2))))) (/ (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow b 4) (pow (PI) 2))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 4) (pow (PI) 2))) (* (pow angle 2) (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4)))))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 4) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow b 4) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 4) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))) (* (pow b 4) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))) (* (pow b 4) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow b 4) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* 2 (/ (* (pow angle 2) (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (pow x-scale 2))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2))))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))))) (pow x-scale 2))) (+ (* (pow angle 2) (+ (* 2 (* (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (* 2 (/ (* (pow b 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (pow x-scale 2))))) (pow (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) 2)))))) (/ (pow b 4) (pow x-scale 4)))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* (pow angle 2) (- (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2)))))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow x-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (pow x-scale 2)))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (pow b 2)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (pow b 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow b 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow b 2))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 b))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* -1/64800 (* (pow angle 2) (* b (pow (PI) 2)))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* 1/25194240000 (* (pow angle 2) (* b (pow (PI) 4)))))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* b (pow (PI) 6)))) (* 1/25194240000 (* b (pow (PI) 4))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2)))))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* 2 (* (pow angle 2) (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* (pow angle 2) (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2)))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* (pow angle 2) (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))))) (/ (pow b 2) (pow x-scale 2))) (/ (pow a 2) (pow y-scale 2)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 1/8100 (/ (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 4 (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (/ x-scale (cos (* 1/180 (* angle (PI)))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 2)))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 2)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) y-scale)))
#s(approx (cos (* (/ angle 180) (PI))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* (/ angle 180) (PI))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) #s(hole binary64 (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))) (* x-scale y-scale)))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) #s(hole binary64 (* 2 (/ (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))) x-scale))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) #s(hole binary64 (* 2 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) #s(hole binary64 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* -1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* (pow x-scale 2) (+ (* -1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/4 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI))))))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale)))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (sin (* 1/180 (* angle (PI)))))) (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* -1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI))))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sin (* 1/180 (* angle (PI)))))))) (pow x-scale 2))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* (pow x-scale 2) (+ (* -1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI))))))) (* 1/4 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sin (* 1/180 (* angle (PI))))))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sin (* 1/180 (* angle (PI)))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 6)))))))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 2 (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (* x-scale y-scale) 2) #s(hole binary64 (* (pow x-scale 2) (pow y-scale 2))))
#s(approx (* x-scale y-scale) #s(hole binary64 (* x-scale y-scale)))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow x-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 180 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* (PI) (- (pow b 2) (pow a 2))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* (pow b 2) y-scale)) (* 2 (/ (* (pow a 2) (pow x-scale 2)) y-scale))) (pow x-scale 2))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 2 (/ (* (pow a 2) (pow x-scale 2)) (pow y-scale 2))) (* 2 (pow b 2))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (/ (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* -1 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (- (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 2))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a 2) (pow x-scale 2)) (pow y-scale 2))) (pow b 2)) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* (pow x-scale 2) (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (/ (* (pow b 4) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow y-scale 4)))))) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 4) (* (pow x-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (/ (* (pow b 4) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow y-scale 4))))) (pow x-scale 4))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2))) (* (pow x-scale 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* -2 (* (pow x-scale 2) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)) (pow x-scale 4))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (+ (* -1 (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (* 1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (* 1/2 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))) x-scale)))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sin (* 1/180 (* angle (PI)))))) (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (pow x-scale 2))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sin (* 1/180 (* angle (PI)))))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 7)))))) (pow x-scale 2))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sin (* 1/180 (* angle (PI)))))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (+ (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 7)))) (* 1/2 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 3))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -1 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -1 (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -1 (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))))) (pow x-scale 2))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -1 (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* -1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 180 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* x-scale (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* x-scale (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (* 1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 6) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (+ (* -1 (/ (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* -1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 8) (pow (sin (* 1/180 (* angle (PI)))) 8)))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))) (* (pow b 2) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))) 2)) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4)) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow x-scale 2))) (+ (/ (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (pow x-scale 4)) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* -1 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (/ (+ (* 1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) x-scale))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* -1/4 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/2 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* x-scale (+ (* -180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2))))))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7)))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/2 (/ (* x-scale (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/2 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/2 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* (pow y-scale 2) (+ (* 1/4 (/ (* x-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7)))) (* 1/2 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -1 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (sin (* 1/180 (* angle (PI)))))) (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (sin (* 1/180 (* angle (PI)))))) (* (pow y-scale 2) (+ (* -1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 3))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 7)))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (sin (* 1/180 (* angle (PI)))))) (* (pow y-scale 2) (+ (* -1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 3))) (* (pow y-scale 2) (+ (* 1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 7))) (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -1 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -1 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (pow y-scale 2) (+ (* -1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6)))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -1 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (pow y-scale 2) (+ (* -1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* 1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -1 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (PI) (- (pow b 2) (pow a 2)))))) y-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) y-scale)))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) (pow y-scale 2))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* -1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (/ (+ (* -1 (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2)) (pow a 2)) (pow y-scale 2))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* -1 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* -1/2 (/ (* (pow y-scale 2) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 8) (pow (sin (* 1/180 (* angle (PI)))) 8)))) (* 1/4 (/ (pow (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow y-scale 2))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (* 1/2 (/ (- (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (/ (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow x-scale 4)))))) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 4) (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow y-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (/ (* (pow b 4) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow x-scale 4))))) (pow y-scale 4))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))) (* (pow y-scale 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* -2 (* (pow y-scale 2) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)) (pow y-scale 4))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (/ (- (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (/ (sin (* 1/180 (* angle (PI)))) (pow y-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (/ (sin (* 1/180 (* angle (PI)))) (pow y-scale 2)))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sin (* 1/180 (* angle (PI)))))))) (/ (sin (* 1/180 (* angle (PI)))) (pow y-scale 2))))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* y-scale (+ (* -180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* -1 (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 6) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) #s(hole binary64 (* -1 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 6) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 4) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow b 6) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 2) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) 2)) (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow b 2) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (pow b 4) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* -1 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4)) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) #s(hole binary64 (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow y-scale 2))) (+ (/ (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (pow y-scale 4)) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) #s(hole binary64 (+ (* -1 (/ (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* -1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* -1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/2 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* -1/4 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/2 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (sin (* 1/180 (* angle (PI)))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (pow y-scale 2))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (sin (* 1/180 (* angle (PI)))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (sin (* 1/180 (* angle (PI)))) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (pow y-scale 2))) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 6) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(literal 1/2 binary64)
(*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (neg.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))) (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
(/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (neg.f64 x-scale) (neg.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
x-scale
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(/.f64 (neg.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
y-scale
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(/.f64 (neg.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (neg.f64 (*.f64 y-scale y-scale)))
(/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(literal 2 binary64)
(*.f64 (neg.f64 y-scale) (neg.f64 y-scale))
(*.f64 (fabs.f64 y-scale) (fabs.f64 y-scale))
(*.f64 y-scale y-scale)
(pow.f64 y-scale #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64)))
(+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(literal 4 binary64)
(*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(/.f64 (neg.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 (*.f64 x-scale y-scale) (*.f64 x-scale y-scale))
(*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale))
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 x-scale y-scale)) #s(literal 2 binary64)))
(*.f64 x-scale y-scale)
(*.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
(pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(/.f64 (neg.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(*.f64 (neg.f64 x-scale) (neg.f64 x-scale))
(*.f64 (fabs.f64 x-scale) (fabs.f64 x-scale))
(*.f64 x-scale x-scale)
(pow.f64 x-scale #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 x-scale) #s(literal 2 binary64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
(*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(literal 90 binary64)
(*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 (neg.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (neg.f64 (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))
(/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 (neg.f64 x-scale) (neg.f64 angle))
(/.f64 x-scale angle)
(*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))
(/.f64 (neg.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (neg.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))
(*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
(-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
(*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))
(*.f64 (/.f64 a y-scale) (/.f64 a y-scale))
(/.f64 (neg.f64 (*.f64 a a)) (neg.f64 (*.f64 y-scale y-scale)))
(/.f64 (*.f64 a a) (*.f64 y-scale y-scale))
(*.f64 (neg.f64 a) (neg.f64 a))
(*.f64 (fabs.f64 a) (fabs.f64 a))
(*.f64 a a)
(pow.f64 a #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 a) #s(literal 2 binary64)))
a
(*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
(*.f64 (/.f64 b x-scale) (/.f64 b x-scale))
(/.f64 (neg.f64 (*.f64 b b)) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (*.f64 b b) (*.f64 x-scale x-scale))
(*.f64 (neg.f64 b) (neg.f64 b))
(*.f64 (fabs.f64 b) (fabs.f64 b))
(*.f64 b b)
(pow.f64 b #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 b) #s(literal 2 binary64)))
b
(*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (neg.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (neg.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(-.f64 (/.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)) (/.f64 #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))
(/.f64 (-.f64 (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) x-scale) (*.f64 y-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale))) (*.f64 y-scale x-scale))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale))
(/.f64 (neg.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)) (neg.f64 y-scale))
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))) (neg.f64 y-scale))
(/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)
(fma.f64 (*.f64 a a) (pow.f64 (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(*.f64 (*.f64 a a) (pow.f64 (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))))
(pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))) #s(literal 2 binary64)))
(*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(sin.f64 (fma.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
(/.f64 (neg.f64 angle) #s(literal -180 binary64))
(/.f64 angle #s(literal 180 binary64))
(*.f64 (*.f64 b b) (pow.f64 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))))
(pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))) #s(literal 2 binary64)))
(*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))
(/.f64 (neg.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)) (neg.f64 x-scale))
(/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))) (neg.f64 x-scale))
(/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)
(fma.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))
(*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))))
(pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))) #s(literal 2 binary64)))
(*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))))
(pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))) #s(literal 2 binary64)))
(*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
(/.f64 (-.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 a a))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))
(/.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)) (neg.f64 y-scale))
(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)
(/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))) (neg.f64 x-scale))
(/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)
(*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))
(*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
(*.f64 (neg.f64 b) (neg.f64 b))
(*.f64 (fabs.f64 b) (fabs.f64 b))
(*.f64 b b)
(pow.f64 b #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 b) #s(literal 2 binary64)))
(*.f64 (neg.f64 a) (neg.f64 a))
(*.f64 (fabs.f64 a) (fabs.f64 a))
(*.f64 a a)
(pow.f64 a #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 a) #s(literal 2 binary64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (neg.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (neg.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
(-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(/.f64 (neg.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (neg.f64 (*.f64 y-scale y-scale)))
(/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(*.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(*.f64 (*.f64 b b) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
(*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
(*.f64 (/.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(/.f64 (neg.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(pow.f64 b #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 b) #s(literal 4 binary64)))
(*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
(pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 x-scale x-scale) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(/.f64 (neg.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(*.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
(*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (neg.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))) (neg.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(-.f64 (/.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)) (/.f64 (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
(/.f64 (-.f64 (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) x-scale) (*.f64 y-scale (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale))) (*.f64 y-scale x-scale))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale))
(/.f64 (neg.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale)) (neg.f64 x-scale))
(/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)
(/.f64 (neg.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b))) (neg.f64 x-scale))
(/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale)
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b))
(pow.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))
(hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(fma.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))
(+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))
(*.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)))
(pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) y-scale) (*.f64 x-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale))) (*.f64 x-scale y-scale))
(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))
(*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
(pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)) #s(literal 2 binary64)))
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) (PI.f64))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (/.f64 (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) (PI.f64)))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))) (*.f64 b b))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (*.f64 b b)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 b b)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (*.f64 b b))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 b b)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))) (*.f64 b b))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (*.f64 b b)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (* 2 (/ (* a a) (* y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (/ (* a a) (* y-scale y-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))
#s(approx (* a a) (*.f64 a a))
#s(approx a a)
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 (*.f64 b b) (PI.f64)))
#s(approx (* (PI) (- (* b b) (* a a))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (PI.f64)) (*.f64 (*.f64 b b) (PI.f64))))
#s(approx (- (* b b) (* a a)) (*.f64 b b))
#s(approx (- (* b b) (* a a)) (fma.f64 #s(literal -1 binary64) (*.f64 a a) (*.f64 b b)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) y-scale))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) y-scale))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* a (cos (* (/ angle 180) (PI)))) (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) x-scale))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) x-scale))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 a a) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale)))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) x-scale)))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) x-scale) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) x-scale))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (*.f64 #s(literal 2 binary64) (*.f64 b b)))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (fma.f64 #s(literal -2 binary64) (*.f64 a a) (*.f64 #s(literal 2 binary64) (*.f64 b b))))
#s(approx (- (* b b) (* a a)) (*.f64 b b))
#s(approx (- (* b b) (* a a)) (fma.f64 #s(literal -1 binary64) (*.f64 a a) (*.f64 b b)))
#s(approx (* a a) (*.f64 a a))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 a a) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (*.f64 a a) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 a (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))) (pow.f64 a #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 6 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 y-scale #s(literal -1 binary64))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 y-scale #s(literal -2 binary64))))))
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (PI.f64))))
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1 binary64) (PI.f64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a a)))))
#s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
#s(approx (- (* b b) (* a a)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 b b) (*.f64 a a)) #s(literal 1 binary64))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 a #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 (*.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) y-scale))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) y-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a a)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) x-scale))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 a a) x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 (*.f64 a a) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 a a)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 a a) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 a #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 b b) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (pow.f64 y-scale #s(literal -2 binary64)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) y-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) y-scale)))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) x-scale)))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) x-scale) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) x-scale))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 a a))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 a a))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (*.f64 #s(literal -2 binary64) (*.f64 a a)))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))
#s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
#s(approx (- (* b b) (* a a)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 b b) (*.f64 a a)) #s(literal 1 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 a a)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 a a)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 a #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 a a)) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 a a)) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 a #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 (*.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)))) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))
#s(approx (* 2 (/ (* b b) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (* b b) (* x-scale x-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(approx (* b b) (*.f64 b b))
#s(approx b b)
#s(approx (- (* b b) (* a a)) (-.f64 (*.f64 b b) (*.f64 a a)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* b (cos (* (/ angle 180) (PI)))) (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 b b) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (- (* b b) (* a a)) (-.f64 (*.f64 b b) (*.f64 a a)))
#s(approx (* b b) (*.f64 b b))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (*.f64 (*.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (*.f64 (*.f64 b b) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))
#s(approx (pow b 4) (pow.f64 b #s(literal 4 binary64)))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 b b) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 b (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (pow.f64 b #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))) (pow.f64 b #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 6 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (pow.f64 b #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (pow.f64 b #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) y-scale))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 x-scale #s(literal -2 binary64))))))
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 (*.f64 b b) (+.f64 (PI.f64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (PI.f64)) (*.f64 b b))))))
#s(approx (- (* b b) (* a a)) (*.f64 (*.f64 b b) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 a a) (*.f64 b b))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 b #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 (*.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) y-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 b b)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 b b) x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 (*.f64 b b) (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 b b)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 b b) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (*.f64 (*.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 b #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 a a) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (pow.f64 x-scale #s(literal -2 binary64)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) y-scale))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) x-scale)))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 b b)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 b b)) (*.f64 #s(literal 2 binary64) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (*.f64 (*.f64 b b) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 a a) (*.f64 b b))))))
#s(approx (- (* b b) (* a a)) (*.f64 (*.f64 b b) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 a a) (*.f64 b b))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 b b)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 b b)) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 b b)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 b b)) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 (*.f64 b b) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 (*.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (*.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))))) angle))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) angle))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/881596846080000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))))))) angle))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))))) angle))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))))) angle))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/881596846080000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (*.f64 #s(literal -1/30855889612800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64))))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64)))))) (PI.f64)) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64))))))))))) angle))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))) angle))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64)) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64))))))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))) angle))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64)) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/881596846080000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (*.f64 #s(literal -1/30855889612800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64))))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64)))))) (PI.f64)) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64)))))))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64))))))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))) angle))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale)
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (+.f64 x-scale (*.f64 #s(literal 1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (+.f64 x-scale (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/4199040000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 #s(literal -1/64800 binary64) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (+.f64 x-scale (*.f64 (*.f64 angle angle) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 6 binary64))) (fma.f64 #s(literal 1/1632586752000000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 6 binary64))) (*.f64 #s(literal 1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/4199040000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))) (fma.f64 #s(literal -1/4199040000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 #s(literal -1/64800 binary64) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* 1/180 (* angle (PI))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (* angle (PI)) (*.f64 angle (PI.f64)))
#s(approx angle angle)
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (PI.f64))) (*.f64 #s(literal 1/540 binary64) (/.f64 (*.f64 y-scale (PI.f64)) (*.f64 x-scale x-scale)))))) angle))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (PI.f64)) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (PI.f64))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (PI.f64))) (*.f64 #s(literal 1/540 binary64) (/.f64 (*.f64 y-scale (PI.f64)) (*.f64 x-scale x-scale))))) (*.f64 #s(literal -1/349920000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 x-scale x-scale))))))) (*.f64 #s(literal 1/540 binary64) (/.f64 (*.f64 y-scale (PI.f64)) (*.f64 x-scale x-scale)))))) angle))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (PI.f64)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (PI.f64)) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))) (PI.f64))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (PI.f64))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (PI.f64))) (*.f64 #s(literal 1/540 binary64) (/.f64 (*.f64 y-scale (PI.f64)) (*.f64 x-scale x-scale))))) (*.f64 #s(literal -1/349920000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/476171136000000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (PI.f64))) (*.f64 #s(literal 1/540 binary64) (/.f64 (*.f64 y-scale (PI.f64)) (*.f64 x-scale x-scale))))))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (PI.f64))) (*.f64 #s(literal 1/540 binary64) (/.f64 (*.f64 y-scale (PI.f64)) (*.f64 x-scale x-scale))))) (*.f64 #s(literal -1/349920000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 x-scale x-scale))))))) (*.f64 #s(literal 1/540 binary64) (/.f64 (*.f64 y-scale (PI.f64)) (*.f64 x-scale x-scale)))))) angle))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 x-scale x-scale))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 #s(literal -2 binary64) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (*.f64 #s(literal 2 binary64) (pow.f64 x-scale #s(literal -2 binary64)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (*.f64 #s(literal 2 binary64) (pow.f64 x-scale #s(literal -2 binary64)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (*.f64 #s(literal 2 binary64) (pow.f64 x-scale #s(literal -2 binary64)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 y-scale y-scale)))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 1/32400 binary64) (*.f64 (PI.f64) (PI.f64))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))))))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 #s(literal 2 binary64) (*.f64 x-scale x-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 2 binary64) (pow.f64 x-scale #s(literal -2 binary64)))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (*.f64 #s(literal 2 binary64) (pow.f64 x-scale #s(literal -2 binary64)))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))))) (*.f64 #s(literal 2 binary64) (pow.f64 x-scale #s(literal -2 binary64)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (pow.f64 x-scale #s(literal -4 binary64)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (*.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (*.f64 #s(literal -1/30855889612800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)))))))))))))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (pow.f64 x-scale #s(literal -4 binary64)))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64)))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)))))))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(literal 1 binary64))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (/ x-scale angle) (/.f64 x-scale angle))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (fma.f64 (*.f64 angle angle) (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)))) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (fma.f64 (*.f64 angle angle) (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale))) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (fma.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (*.f64 a a) y-scale))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) y-scale) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) y-scale))))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) y-scale) (fma.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) y-scale) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) y-scale)))))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (*.f64 a a))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)))) (*.f64 a a)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 a a)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))) (*.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (*.f64 a a))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 a a) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64))) (*.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (*.f64 a a)))
#s(approx (* a (cos (* (/ angle 180) (PI)))) a)
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (*.f64 #s(literal -1/64800 binary64) (*.f64 a (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 a (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 a (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(literal 1 binary64))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* (/ angle 180) (PI)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (/ angle 180) (*.f64 #s(literal 1/180 binary64) angle))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 b (PI.f64)))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 b (PI.f64))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 b (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 b (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 7 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (sin (* (/ angle 180) (PI))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (sin (* (/ angle 180) (PI))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* (/ angle 180) (PI))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))
#s(approx (sin (* (/ angle 180) (PI))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (*.f64 b b) x-scale))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) x-scale) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) x-scale))))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) x-scale) (fma.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) x-scale) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) x-scale)))))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)))) (*.f64 b b)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 b b)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 b b)))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (PI.f64))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 a (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 a (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (*.f64 b b))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))) (*.f64 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (*.f64 b b)))
#s(approx (* b (cos (* (/ angle 180) (PI)))) b)
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal 1/90 binary64) (*.f64 (/.f64 angle x-scale) (/.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (/.f64 (PI.f64) x-scale) (/.f64 (-.f64 (*.f64 b b) (*.f64 a a)) y-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (/.f64 (PI.f64) x-scale) (/.f64 (-.f64 (*.f64 b b) (*.f64 a a)) y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal 1/2267481600000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (/.f64 (PI.f64) x-scale) (/.f64 (-.f64 (*.f64 b b) (*.f64 a a)) y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal -1/30855889612800000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale))))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)) (*.f64 #s(literal 1/2267481600000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 x-scale y-scale)))))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale)))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal 1/2267481600000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale)))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/34992000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (fma.f64 #s(literal -1/1469328076800000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (fma.f64 #s(literal -1/4407984230400000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal -1/30855889612800000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale)))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale) (*.f64 #s(literal 1/2267481600000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) x-scale))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 #s(literal 1/90 binary64) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (*.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal 1/90 binary64) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal -1/17496000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/17496000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/11337408000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 angle (fma.f64 #s(literal 1/90 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/17496000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/15427944806400000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 1/11337408000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale))))) (*.f64 b b)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64)))))) (*.f64 b b)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale))))) (*.f64 b b)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 y-scale y-scale)))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64))))))) (pow.f64 b #s(literal 4 binary64)))))) (*.f64 b b)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64)))))) (*.f64 b b)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale))))) (*.f64 b b)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)))))))
#s(approx (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (*.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 b (PI.f64)))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 b (PI.f64))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 b (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 b (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 7 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale))))) (*.f64 b b)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale))))) (*.f64 b b)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64)))))) (*.f64 b b)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale))))) (*.f64 b b)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64)))))) (*.f64 b b)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 y-scale y-scale)))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64))))))) (pow.f64 b #s(literal 4 binary64)))))) (*.f64 b b)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))))) (*.f64 b b)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64))))))) (*.f64 b b)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale))))) (*.f64 b b)))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale))))) (*.f64 b b)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 y-scale y-scale)))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64))))))) (pow.f64 b #s(literal 4 binary64))))))) (*.f64 b b)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64)))))) (*.f64 b b)))))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)))) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 y-scale y-scale)))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))
#s(approx (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 x-scale x-scale)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 y-scale y-scale)))) (*.f64 x-scale x-scale)))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)))))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 y-scale y-scale))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)))))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))) (*.f64 x-scale x-scale))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))) (*.f64 x-scale x-scale)))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (*.f64 b b))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))) (*.f64 b b)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 b b)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (*.f64 b b)))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) b)
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (+.f64 b (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (+.f64 b (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (+.f64 b (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 angle angle) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 (*.f64 angle angle) (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 4 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 4 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 4 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (cos (* 1/180 (* angle (PI)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
#s(approx (sin (* 1/180 (* angle (PI)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) y-scale))
#s(approx (cos (* (/ angle 180) (PI))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (sin (* (/ angle 180) (PI))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) x-scale))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 x-scale y-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale)))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))) x-scale))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) x-scale))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) x-scale))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) x-scale))
#s(approx x-scale x-scale)
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale)))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 x-scale x-scale)))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 x-scale x-scale)))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (*.f64 x-scale x-scale)))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (*.f64 x-scale x-scale)))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))))))))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 (*.f64 x-scale x-scale) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (*.f64 x-scale x-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 x-scale x-scale) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (* x-scale y-scale) 2) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
#s(approx (* x-scale y-scale) (*.f64 x-scale y-scale))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 x-scale x-scale) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (* x-scale x-scale) (*.f64 x-scale x-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 180 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) x-scale))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) x-scale))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (PI.f64)) (/.f64 y-scale (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 x-scale x-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 b b) y-scale) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) y-scale))) (*.f64 x-scale x-scale)))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 b b))) (*.f64 x-scale x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 (*.f64 x-scale x-scale) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 b b)) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 (*.f64 x-scale x-scale) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 x-scale x-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (*.f64 x-scale x-scale)))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/.f64 (+.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/.f64 (+.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (pow.f64 y-scale #s(literal 4 binary64))))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (/.f64 (+.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 x-scale x-scale) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (pow.f64 y-scale #s(literal 4 binary64)))))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (pow.f64 (*.f64 x-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 x-scale x-scale) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (fma.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (pow.f64 (*.f64 x-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))) x-scale))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))) x-scale))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)))))))) x-scale))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))) x-scale))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))))) (*.f64 x-scale x-scale)))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))))) (*.f64 x-scale x-scale)))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))))))) (*.f64 x-scale x-scale)))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 3 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 3 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))))))) (*.f64 x-scale x-scale)))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 3 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (*.f64 x-scale x-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 6 binary64)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 6 binary64)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 x-scale x-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 6 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (*.f64 (*.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 b #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 b #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 x-scale x-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 b #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 b #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (pow.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 y-scale y-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 x-scale x-scale)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) x-scale)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) x-scale)))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx y-scale y-scale)
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (* y-scale y-scale) (*.f64 y-scale y-scale))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 y-scale y-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 y-scale y-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (-.f64 (/.f64 (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) y-scale))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) y-scale))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) (*.f64 y-scale y-scale)))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) (*.f64 y-scale y-scale)))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (/ (* a a) (* y-scale y-scale))) (/.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 a a)) (*.f64 y-scale y-scale)))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 y-scale y-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (*.f64 y-scale y-scale)))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/.f64 (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (*.f64 y-scale y-scale)))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/.f64 (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (/.f64 (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 y-scale y-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (pow.f64 x-scale #s(literal 4 binary64))))))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 y-scale y-scale) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (/.f64 (+.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 (*.f64 y-scale y-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (pow.f64 x-scale #s(literal 4 binary64)))))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (/.f64 (-.f64 (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (pow.f64 (*.f64 y-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 y-scale y-scale) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (/.f64 (fma.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (pow.f64 (*.f64 y-scale (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (/.f64 (-.f64 (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 y-scale y-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 7 binary64)) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 7 binary64)) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 y-scale (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 y-scale (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 y-scale y-scale)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 y-scale (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 y-scale (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 y-scale (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 y-scale (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 6 binary64)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (-.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 6 binary64)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 6 binary64)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 6 binary64)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 y-scale (fma.f64 #s(literal -180 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (-.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 b #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 b #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 b #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (*.f64 b b)) (/.f64 (-.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 y-scale y-scale)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 7 binary64)) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 7 binary64)) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 6 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 6 binary64)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))

eval1.7s (8%)

Memory
-150.2MiB live, 651.3MiB allocated; 1.8s collecting garbage
Compiler

Compiled 649 917 to 19 368 computations (97% saved)

prune564.0ms (2.6%)

Memory
12.8MiB live, 881.5MiB allocated; 73ms collecting garbage
Pruning

49 alts after pruning (49 fresh and 0 done)

PrunedKeptTotal
New2 296452 341
Fresh12416
Picked505
Done000
Total2 313492 362
Accuracy
73.5%
Counts
2 362 → 49
Alt Table
Click to see full alt table
StatusAccuracyProgram
16.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
11.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
12.1%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
14.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
11.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 #s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
16.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
19.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
23.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
13.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
10.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
▶8.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
3.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
13.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) y-scale)) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
4.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
18.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
13.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
3.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
31.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
19.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
23.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))))) (PI.f64)))
5.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
▶5.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
5.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
31.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 #s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
6.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) #s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
29.7%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) #s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 #s(literal 2 binary64) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
29.7%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) #s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
45.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale #s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 #s(literal -2 binary64) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
12.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
13.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (PI.f64))) (*.f64 #s(literal 1/540 binary64) (/.f64 (*.f64 y-scale (PI.f64)) (*.f64 x-scale x-scale)))))) angle)))))) (PI.f64)))
45.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))) (PI.f64)))
37.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))) (PI.f64)))
15.7%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) #s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))) angle))))) (PI.f64)))
27.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (PI.f64)))
5.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (PI.f64)))
▶21.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
22.1%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
17.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))) (PI.f64)))
6.0%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))) (PI.f64)))
12.7%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale)))) (PI.f64)))
9.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
3.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
40.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
▶13.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
19.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
15.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))))))))) (PI.f64)))
15.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (PI.f64)))
26.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
▶47.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
Compiler

Compiled 25 456 to 8 358 computations (67.2% saved)

series664.0ms (3.1%)

Memory
-3.6MiB live, 929.6MiB allocated; 65ms collecting garbage
Counts
103 → 561
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(literal -1 binary64)
(*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 y-scale x-scale)
y-scale
x-scale
(/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
(*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))
#s(literal -180 binary64)
(/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))
(*.f64 angle (*.f64 y-scale (PI.f64)))
(*.f64 y-scale (PI.f64))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))
(*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))
#s(literal 90 binary64)
(*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))
(/.f64 x-scale angle)
(/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))
(*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))
(-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))
#s(literal 2 binary64)
(/.f64 (*.f64 a a) (*.f64 y-scale y-scale))
(*.f64 a a)
a
(*.f64 y-scale y-scale)
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))
(/.f64 (*.f64 b b) (*.f64 x-scale x-scale))
(*.f64 b b)
b
(*.f64 x-scale x-scale)
(*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))
#s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
(*.f64 #s(literal -1 binary64) (*.f64 a a))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))
(*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
(fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(literal -2 binary64)
(*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
(-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
(fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))))))
(/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))
(*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))
(*.f64 angle (*.f64 x-scale (PI.f64)))
(*.f64 x-scale (PI.f64))
(*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))
(-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))))
(/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64)))
(*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
(-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
(*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))))
(*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))
(/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))
(*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))
(pow.f64 a #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))
(/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
(*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(literal -1/2 binary64)
(*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))
(*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
(fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
Outputs
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) #s(hole binary64 (* 180 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI)))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) #s(hole binary64 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI))))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) #s(hole binary64 (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))) (pow b 2)))))) (* 1/2 (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* (pow a 2) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ y-scale (* (pow x-scale 2) (PI))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 2))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI)))))) (pow b 2)))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* 2 (/ (pow a 2) y-scale)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* 2 (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (* a a) (* y-scale y-scale)) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (* a a) #s(hole binary64 (pow a 2)))
#s(approx a #s(hole binary64 a))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (PI))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (PI))) (* (pow b 2) (PI)))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (pow b 2)))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (+ (* -1 (pow a 2)) (pow b 2))))
#s(approx (* -1 (* a a)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* (pow a 2) (+ (* (pow a 2) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* (pow a 2) (+ (* (pow a 2) (+ (* -2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow a 2) (+ (* (pow a 2) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (+ (* (pow a 2) (+ (* (pow a 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* (pow a 2) (+ (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (/ y-scale (* (* a a) (* angle (* x-scale (PI))))) #s(hole binary64 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))))
#s(approx (* (* a a) (* angle (* x-scale (PI)))) #s(hole binary64 (* (pow a 2) (* angle (* x-scale (PI))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (+ (* (pow a 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 2))))
#s(approx (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) #s(hole binary64 (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI))))))))
#s(approx (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))) #s(hole binary64 (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))
#s(approx (/ x-scale (* (* a a) (* angle (* y-scale (PI))))) #s(hole binary64 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))
#s(approx (* (* a a) (* angle (* y-scale (PI)))) #s(hole binary64 (* (pow a 2) (* angle (* y-scale (PI))))))
#s(approx (pow a 4) #s(hole binary64 (pow a 4)))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* -1 (/ (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 4)))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (/ (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 4))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* -1/2 (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (+ (* -1/2 (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (+ (* -1/2 (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 4))) (* -1/2 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* a (sin (* 1/180 (* angle (PI)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (sin (* 1/180 (* angle (PI)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (+ (* 1/2 (/ (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))) (pow a 6))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (+ (* 90 (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI))))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4)))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ -2 (* y-scale (PI)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 6))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (pow a 2) y-scale))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 y-scale))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (pow b 2) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 (pow y-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (PI)))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (PI)) (/ (* (pow b 2) (PI)) (pow a 2))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (pow a 2)) 1))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -2 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (+ (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4)) (/ (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6)))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))) (pow a 2))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (+ (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (/ (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4)))) (pow a 2))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 2))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (+ (* 2 (/ y-scale (* angle (* x-scale (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 2))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (+ (* 2 (/ y-scale (* angle (* x-scale (PI))))) (+ (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4)))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 2))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* angle (* x-scale (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))) (pow a 2))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* angle (* x-scale (PI))))) (+ (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4)))) (pow a 2))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (+ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))) (pow a 4))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 4))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (* -1 (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 4))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (+ (* -1/2 (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 6))) (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (+ (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4)))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (+ (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2)))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (+ (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 4)))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (+ (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 4))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (pow x-scale 2))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (sin (* 1/180 (* angle (PI))))) (/ (* (pow b 2) (sin (* 1/180 (* angle (PI))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))))) (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))) (pow a 2)))))) (* 1/2 (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* (pow b 2) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 2))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* b b) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (* b b) (* x-scale x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx b #s(hole binary64 b))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* (pow b 2) (+ (* -1/2 (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 2))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* (pow b 2) (+ (* -1/2 (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 4))) (* -1/2 (/ (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 2))))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 2))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 2)))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 4)) (* -1 (/ (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2))))) (pow a 2)))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (* b (cos (* 1/180 (* angle (PI)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (+ (* 1/2 (/ (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))) (pow b 6))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (+ (* 90 (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 4) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ y-scale (pow x-scale 2))) (* 2 (/ (pow a 2) (* (pow b 2) y-scale)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ (pow a 2) (* (pow b 2) (pow y-scale 2)))) (* 2 (/ 1 (pow x-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (PI) (* -1 (/ (* (pow a 2) (PI)) (pow b 2)))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow b 2) (+ 1 (* -1 (/ (pow a 2) (pow b 2)))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* (pow b 6) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* (pow b 6) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* (pow b 6) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow b 4) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (* (pow a 2) (pow b 2)))) (+ (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow b 4) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* (pow b 6) (- (+ (* -2 (/ x-scale (* angle (* (pow b 6) (* y-scale (PI)))))) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow b 4) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))))) (+ (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (* (pow a 2) (pow b 2)))) (+ (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow b 4) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 6) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 6) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 6) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow b 4) (* x-scale (PI))))))) (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))))) (+ (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow b 4) (* y-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* (pow b 4) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* (pow b 4) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* (pow b 4) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow b 4) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (* (pow a 2) (pow b 2)))) (+ (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow b 4) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* (pow b 4) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* (pow b 4) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* (pow b 4) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow b 4) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (* (pow a 2) (pow b 2)))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* (pow b 4) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* (pow b 4) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4))) (+ (* -1/2 (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 6))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 6)))) (+ (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2))))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 6)))) (+ (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (pow x-scale 2))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (sin (* 1/180 (* angle (PI)))) (* -1 (/ (* (pow a 2) (sin (* 1/180 (* angle (PI))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2)))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))) (* x-scale (pow (PI) 2)))) (+ (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))) (PI))) (* 180 (/ (* (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5)))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* -1 (* (pow angle 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* -1 (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1 (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* -1 (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))) (* (pow angle 2) (+ (* -1 (* (pow angle 2) (- (* -1/136048896000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (+ (* -1/952342272000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))))))) (* -1 (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* 180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* -1/360 (/ (* y-scale (PI)) x-scale)) (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* -1/360 (/ (* y-scale (PI)) x-scale)) (* (pow angle 2) (- (+ (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (* (pow angle 2) (- (* -1/136048896000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (+ (* -1/952342272000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ 180 (* angle (PI)))))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (* -1/360 (PI)) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (+ (* -1/360 (PI)) (* (pow angle 2) (- (* 1/139968000 (pow (PI) 3)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (+ (* -1/360 (PI)) (* (pow angle 2) (- (+ (* 1/139968000 (pow (PI) 3)) (* (pow angle 2) (- (* -1/136048896000000 (pow (PI) 5)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (pow (PI) 3)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (+ (* -1/952342272000000 (pow (PI) 5)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (PI)) (* -1/1080 (PI)))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* -180 (/ x-scale (* angle (* y-scale (PI))))) #s(hole binary64 (* -180 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (/ x-scale (* angle (* y-scale (PI)))) #s(hole binary64 (/ x-scale (* angle (* y-scale (PI))))))
#s(approx (* angle (* y-scale (PI))) #s(hole binary64 (* angle (* y-scale (PI)))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (/ x-scale angle) #s(hole binary64 (/ x-scale angle)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* -2 (/ x-scale (* y-scale (PI)))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))))) angle)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) angle)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (+ (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) angle)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) angle)))
#s(approx (* angle (* x-scale (PI))) #s(hole binary64 (* angle (* x-scale (PI)))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2))))) angle)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))) angle)))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (* (pow a 4) angle))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) angle)))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) angle)))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (* (pow a 2) angle)))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (* (pow a 2) angle))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) angle)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (pow angle 2) (+ (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* 360 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 x-scale))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* 1/64800 (* (pow angle 2) (* x-scale (pow (PI) 2)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/24488801280000000 (* x-scale (pow (PI) 6))) (+ (* 1/1632586752000000 (* x-scale (pow (PI) 6))) (* 1/64800 (* (pow (PI) 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))))))) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* 360 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (+ (* -1/476171136000000 (/ (* (pow b 2) (* y-scale (pow (PI) 5))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))) (* 1/125971200000 (* (pow (PI) 4) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (pow angle 2) (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (pow angle 2) (+ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (pow angle 2) (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow a 2) (* (pow angle 2) (pow (PI) 2))) (pow x-scale 2)))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (* (pow angle 2) (pow (PI) 4))) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow a 2) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow x-scale 2))))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* (pow angle 2) (+ (/ (* (pow a 2) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow x-scale 2)) (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))))))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (* (pow angle 2) (pow (PI) 4)))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow a 2) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* a (* angle (PI))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* -1/34992000 (* a (* (pow angle 2) (pow (PI) 3)))) (* 1/180 (* a (PI)))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* 1/22674816000000 (* a (* (pow angle 2) (pow (PI) 5))))))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* a (* (pow angle 2) (pow (PI) 7)))) (* 1/22674816000000 (* a (pow (PI) 5)))))))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/16200 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow x-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 2 (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (pow x-scale 2))))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow x-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (pow x-scale 2)))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (pow b 2)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (pow b 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow b 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow b 2))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 b))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* -1/64800 (* (pow angle 2) (* b (pow (PI) 2)))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* 1/25194240000 (* (pow angle 2) (* b (pow (PI) 4)))))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* b (pow (PI) 6)))) (* 1/25194240000 (* b (pow (PI) 4))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* 1/180 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (* 1/180 (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* 1/22674816000000 (* (pow angle 2) (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* (pow (PI) 7) (- (pow b 2) (pow a 2))))) (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (/ x-scale (cos (* 1/180 (* angle (PI)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -1 (/ (+ (* 2 (/ x-scale (* y-scale (PI)))) (* (pow b 2) (- (+ (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))))) angle))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (/ (* (pow b 2) (- (+ (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) angle))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (/ (- (+ (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) angle))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* -1 (/ (+ (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) angle))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* -1 (/ (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2))))) angle))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* -1 (/ (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))) angle))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* -1 (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (* (pow a 4) angle)))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) angle))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) angle))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (* (pow a 2) angle))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (* (pow a 2) angle)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))))))) x-scale)))
#s(approx (/ y-scale x-scale) #s(hole binary64 (/ y-scale x-scale)))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 180 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* (PI) (- (pow b 2) (pow a 2))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* (pow b 2) y-scale)) (* 2 (/ (* (pow a 2) (pow x-scale 2)) y-scale))) (pow x-scale 2))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 2 (/ (* (pow a 2) (pow x-scale 2)) (pow y-scale 2))) (* 2 (pow b 2))) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) x-scale)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) (* (pow x-scale 2) (- (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* angle (* y-scale (PI)))))))) x-scale)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) x-scale)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow b 2) (* (pow x-scale 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI))))))))) (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))))))) x-scale)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))))) x-scale)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (+ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (* (pow x-scale 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))))) x-scale)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))))) x-scale)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (+ (* (pow b 2) (* (pow x-scale 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) x-scale)))
#s(approx (* x-scale (PI)) #s(hole binary64 (* x-scale (PI))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))) x-scale)))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (+ (* (pow b 2) (* (pow x-scale 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))))) x-scale)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))) x-scale)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* (pow x-scale 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))) x-scale)))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (* x-scale (PI))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow x-scale 2)) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI)))))) x-scale)))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow x-scale 2)) (* (pow a 2) (* angle (* y-scale (PI)))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (PI)))))) x-scale)))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (+ (* -2 (/ (pow x-scale 2) (* (pow a 2) (* angle (* y-scale (PI)))))) (* 2 (/ y-scale (* (pow a 2) (* angle (PI)))))) x-scale)))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* -2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (/ (+ (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))) (* 2 (/ (pow x-scale 2) (* (pow a 4) (* angle (* y-scale (PI))))))) x-scale)))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (/ (+ (* -2 (/ (pow x-scale 2) (* (pow a 4) (* angle (* y-scale (PI)))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI)))))) x-scale)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (* 1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))) x-scale)))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 180 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* x-scale (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* x-scale (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* x-scale (- (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* angle (* y-scale (PI)))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* x-scale (- (+ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) (pow x-scale 2))) (* 2 (/ 1 (* angle (* y-scale (PI)))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (* x-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* x-scale (+ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) (pow x-scale 2))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* x-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* x-scale (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2)))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* (pow b 2) (* x-scale (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* x-scale (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2)))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* (pow b 2) (* x-scale (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* x-scale (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* x-scale (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* x-scale (- (+ (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (* (pow x-scale 2) (PI))))))) (+ (* -2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (* y-scale (PI))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* x-scale (+ (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (* (pow x-scale 2) (PI))))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* x-scale (+ (* -2 (/ (pow b 2) (* (pow a 2) (* angle (* y-scale (PI)))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* (pow x-scale 2) (PI))))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* x-scale (- (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* x-scale (+ (* -2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* -2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* x-scale (- (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* x-scale (+ (* -180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -1 (* x-scale (+ (* (pow b 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* angle (* y-scale (PI))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -1 (* x-scale (+ (* 2 (/ 1 (* angle (* y-scale (PI))))) (+ (* (pow b 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (+ (* -2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) (pow x-scale 2))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* (pow b 2) (* x-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI))))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* x-scale (+ (* (pow b 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (+ (* -2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) (pow x-scale 2)))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* x-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (+ (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2)))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* -1 (* (pow b 2) (* x-scale (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* -1 (* (pow b 2) (* x-scale (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* -1 (* x-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2)))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* -1 (* x-scale (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* -1 (* x-scale (- (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (* (pow x-scale 2) (PI)))))) (+ (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))) (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))))) (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ (pow b 2) (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* -1 (* x-scale (- (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2))))))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7)))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (* y-scale (PI)) #s(hole binary64 (* y-scale (PI))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (PI) (- (pow b 2) (pow a 2)))))) y-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) y-scale)))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) (pow y-scale 2))))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* -2 (/ x-scale (* angle (PI)))) (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI)))))))) y-scale)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* -2 (/ x-scale (* angle (PI)))) (+ (* (pow b 2) (* (pow y-scale 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))) (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI))))))))) y-scale)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI))))))) y-scale)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow b 2) (* (pow y-scale 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))) (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI)))))))) y-scale)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI)))))) y-scale)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (+ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* (pow y-scale 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI)))))) y-scale)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) y-scale)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* (pow y-scale 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))) y-scale)))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) y-scale)))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (+ (* (pow b 2) (* (pow y-scale 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))) (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI)))))))) y-scale)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI)))))) y-scale)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* (pow y-scale 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI)))))) y-scale)))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ (* (pow b 2) (pow y-scale 2)) (* (pow a 6) (* angle (* x-scale (PI))))))) y-scale)))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (PI))))) (* 2 (/ (* (pow b 2) (pow y-scale 2)) (* (pow a 2) (* angle (* x-scale (PI))))))) y-scale)))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (* 2 (/ (pow y-scale 2) (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI)))))) y-scale)))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (/ (+ (* -2 (/ (pow y-scale 2) (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI)))))) y-scale)))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (/ (+ (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))) (* 2 (/ (pow y-scale 2) (* (pow a 4) (* angle (* x-scale (PI))))))) y-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* y-scale (+ (* -180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2)))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* (pow b 2) (* y-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* y-scale (+ (* -2 (/ x-scale (* angle (* (pow y-scale 2) (PI))))) (+ (* (pow b 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI))))))) (pow y-scale 2)))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (* y-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* y-scale (+ (* (pow b 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI))))))) (pow y-scale 2))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* y-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* y-scale (- (+ (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2)))) (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow y-scale 2) (PI))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* y-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* y-scale (+ (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2)))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* (pow b 2) (* y-scale (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* y-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* y-scale (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (* (pow y-scale 2) (PI)))))) (+ (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI))))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* y-scale (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI))))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ (pow b 2) (* (pow a 2) (* angle (* x-scale (PI))))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* y-scale (+ (* -2 (/ x-scale (* (pow a 2) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* y-scale (- (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* y-scale (+ (* -2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* -1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* -1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -1 (* (pow b 2) (* y-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -1 (* y-scale (+ (* 2 (/ x-scale (* angle (* (pow y-scale 2) (PI))))) (+ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* (pow b 2) (- (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* -2 (/ x-scale (* (pow a 2) (* angle (PI))))))) (pow y-scale 2))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* (pow b 2) (* y-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* y-scale (+ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* (pow b 2) (- (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* -2 (/ x-scale (* (pow a 2) (* angle (PI))))))) (pow y-scale 2)))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* y-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* y-scale (- (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2))) (+ (* -2 (/ x-scale (* (pow a 2) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* -1 (* y-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* -1 (* y-scale (- (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* -1 (* (pow b 2) (* y-scale (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* -1 (* y-scale (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2)))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* -1 (* y-scale (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* -1 (* y-scale (- (+ (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (* (pow y-scale 2) (PI))))))) (+ (* -2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (* (pow y-scale 2) (PI)))))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow b 2) (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* (pow y-scale 2) (PI)))))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* y-scale (- (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* -1 (* y-scale (- (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))))))
Calls

15 calls:

TimeVariablePointExpression
50.0ms
angle
@0
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/ y-scale x-scale) y-scale x-scale (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (sin (* 1/180 (* angle (PI)))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* -180 (/ x-scale (* angle (* y-scale (PI))))) -180 (/ x-scale (* angle (* y-scale (PI)))) (* angle (* y-scale (PI))) (* y-scale (PI)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (/ (* a a) (* y-scale y-scale))) 2 (/ (* a a) (* y-scale y-scale)) (* a a) a (* y-scale y-scale) (* 2 (/ (* b b) (* x-scale x-scale))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* x-scale x-scale) (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* -1 (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) -2 (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/ y-scale (* (* a a) (* angle (* x-scale (PI))))) (* (* a a) (* angle (* x-scale (PI)))) (* angle (* x-scale (PI))) (* x-scale (PI)) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))) (/ x-scale (* (* a a) (* angle (* y-scale (PI))))) (* (* a a) (* angle (* y-scale (PI)))) (pow a 4) 4 (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)))
48.0ms
x-scale
@0
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/ y-scale x-scale) y-scale x-scale (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (sin (* 1/180 (* angle (PI)))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* -180 (/ x-scale (* angle (* y-scale (PI))))) -180 (/ x-scale (* angle (* y-scale (PI)))) (* angle (* y-scale (PI))) (* y-scale (PI)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (/ (* a a) (* y-scale y-scale))) 2 (/ (* a a) (* y-scale y-scale)) (* a a) a (* y-scale y-scale) (* 2 (/ (* b b) (* x-scale x-scale))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* x-scale x-scale) (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* -1 (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) -2 (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/ y-scale (* (* a a) (* angle (* x-scale (PI))))) (* (* a a) (* angle (* x-scale (PI)))) (* angle (* x-scale (PI))) (* x-scale (PI)) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))) (/ x-scale (* (* a a) (* angle (* y-scale (PI))))) (* (* a a) (* angle (* y-scale (PI)))) (pow a 4) 4 (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)))
40.0ms
b
@inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/ y-scale x-scale) y-scale x-scale (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (sin (* 1/180 (* angle (PI)))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* -180 (/ x-scale (* angle (* y-scale (PI))))) -180 (/ x-scale (* angle (* y-scale (PI)))) (* angle (* y-scale (PI))) (* y-scale (PI)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (/ (* a a) (* y-scale y-scale))) 2 (/ (* a a) (* y-scale y-scale)) (* a a) a (* y-scale y-scale) (* 2 (/ (* b b) (* x-scale x-scale))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* x-scale x-scale) (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* -1 (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) -2 (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/ y-scale (* (* a a) (* angle (* x-scale (PI))))) (* (* a a) (* angle (* x-scale (PI)))) (* angle (* x-scale (PI))) (* x-scale (PI)) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))) (/ x-scale (* (* a a) (* angle (* y-scale (PI))))) (* (* a a) (* angle (* y-scale (PI)))) (pow a 4) 4 (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)))
39.0ms
angle
@-inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/ y-scale x-scale) y-scale x-scale (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (sin (* 1/180 (* angle (PI)))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* -180 (/ x-scale (* angle (* y-scale (PI))))) -180 (/ x-scale (* angle (* y-scale (PI)))) (* angle (* y-scale (PI))) (* y-scale (PI)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (/ (* a a) (* y-scale y-scale))) 2 (/ (* a a) (* y-scale y-scale)) (* a a) a (* y-scale y-scale) (* 2 (/ (* b b) (* x-scale x-scale))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* x-scale x-scale) (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* -1 (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) -2 (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/ y-scale (* (* a a) (* angle (* x-scale (PI))))) (* (* a a) (* angle (* x-scale (PI)))) (* angle (* x-scale (PI))) (* x-scale (PI)) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))) (/ x-scale (* (* a a) (* angle (* y-scale (PI))))) (* (* a a) (* angle (* y-scale (PI)))) (pow a 4) 4 (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)))
38.0ms
y-scale
@inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/ y-scale x-scale) y-scale x-scale (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (sin (* 1/180 (* angle (PI)))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* -180 (/ x-scale (* angle (* y-scale (PI))))) -180 (/ x-scale (* angle (* y-scale (PI)))) (* angle (* y-scale (PI))) (* y-scale (PI)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (/ (* a a) (* y-scale y-scale))) 2 (/ (* a a) (* y-scale y-scale)) (* a a) a (* y-scale y-scale) (* 2 (/ (* b b) (* x-scale x-scale))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* x-scale x-scale) (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* -1 (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) -2 (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/ y-scale (* (* a a) (* angle (* x-scale (PI))))) (* (* a a) (* angle (* x-scale (PI)))) (* angle (* x-scale (PI))) (* x-scale (PI)) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))) (/ x-scale (* (* a a) (* angle (* y-scale (PI))))) (* (* a a) (* angle (* y-scale (PI)))) (pow a 4) 4 (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* b (cos (* 1/180 (* angle (PI))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)))

rewrite523.0ms (2.4%)

Memory
36.3MiB live, 544.2MiB allocated; 102ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03746109811
03915105781
011187104076
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
664 → 725
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(literal -1 binary64)
(*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 y-scale x-scale)
y-scale
x-scale
(/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
(*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))
#s(literal -180 binary64)
(/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))
(*.f64 angle (*.f64 y-scale (PI.f64)))
(*.f64 y-scale (PI.f64))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))
(*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))
#s(literal 90 binary64)
(*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))
(/.f64 x-scale angle)
(/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))
(*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))))
(-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale)))
#s(literal 2 binary64)
(/.f64 (*.f64 a a) (*.f64 y-scale y-scale))
(*.f64 a a)
a
(*.f64 y-scale y-scale)
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)))
(/.f64 (*.f64 b b) (*.f64 x-scale x-scale))
(*.f64 b b)
b
(*.f64 x-scale x-scale)
(*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))
#s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
(*.f64 #s(literal -1 binary64) (*.f64 a a))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))
(*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
(fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(literal -2 binary64)
(*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
(-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
(fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))))))
(/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))
(*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))
(*.f64 angle (*.f64 x-scale (PI.f64)))
(*.f64 x-scale (PI.f64))
(*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))
(-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))))
(/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64)))
(*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
(-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
(*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))))
(*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))
(/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))
(*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))
(pow.f64 a #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))
(/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
(*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(literal -1/2 binary64)
(*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))
(*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
(fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) #s(hole binary64 (* 180 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI)))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) #s(hole binary64 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI))))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) #s(hole binary64 (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))) (pow b 2)))))) (* 1/2 (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* (pow a 2) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ y-scale (* (pow x-scale 2) (PI))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 2))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI)))))) (pow b 2)))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* 2 (/ (pow a 2) y-scale)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* 2 (/ (* a a) (* y-scale y-scale))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (/ (* a a) (* y-scale y-scale)) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (* a a) #s(hole binary64 (pow a 2)))
#s(approx a #s(hole binary64 a))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (PI))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (PI))) (* (pow b 2) (PI)))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (pow b 2)))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (+ (* -1 (pow a 2)) (pow b 2))))
#s(approx (* -1 (* a a)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* (pow a 2) (+ (* (pow a 2) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* (pow a 2) (+ (* (pow a 2) (+ (* -2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow a 2) (+ (* (pow a 2) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (+ (* (pow a 2) (+ (* (pow a 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* (pow a 2) (+ (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (/ y-scale (* (* a a) (* angle (* x-scale (PI))))) #s(hole binary64 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))))
#s(approx (* (* a a) (* angle (* x-scale (PI)))) #s(hole binary64 (* (pow a 2) (* angle (* x-scale (PI))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (+ (* (pow a 2) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (+ (* (pow a 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 6))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 2))))
#s(approx (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) #s(hole binary64 (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI))))))))
#s(approx (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))) #s(hole binary64 (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))
#s(approx (/ x-scale (* (* a a) (* angle (* y-scale (PI))))) #s(hole binary64 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))
#s(approx (* (* a a) (* angle (* y-scale (PI)))) #s(hole binary64 (* (pow a 2) (* angle (* y-scale (PI))))))
#s(approx (pow a 4) #s(hole binary64 (pow a 4)))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* -1 (/ (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 4)))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (/ (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 4))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* -1/2 (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (+ (* -1/2 (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (+ (* -1/2 (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 4))) (* -1/2 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* a (sin (* 1/180 (* angle (PI)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (sin (* 1/180 (* angle (PI)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (+ (* 1/2 (/ (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))) (pow a 6))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (+ (* 90 (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI))))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4)))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ -2 (* y-scale (PI)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 6))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (pow a 2) y-scale))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 y-scale))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (pow b 2) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 (pow y-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (PI)))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (PI)) (/ (* (pow b 2) (PI)) (pow a 2))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (pow a 2)) 1))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -2 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (+ (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4)) (/ (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 6)))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))) (pow a 2))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (+ (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (/ (* (pow b 6) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4)))) (pow a 2))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 2))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (+ (* 2 (/ y-scale (* angle (* x-scale (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 2))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (+ (* 2 (/ y-scale (* angle (* x-scale (PI))))) (+ (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4)))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 2))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* angle (* x-scale (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))) (pow a 2))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* angle (* x-scale (PI))))) (+ (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4)))) (pow a 2))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 4))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (+ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (/ (* (pow b 4) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2))) (pow a 4))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))) (pow a 4))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI))))))) (pow a 2)) (* -1 (- (* 2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ x-scale (* angle (* y-scale (PI)))))))) (pow a 4))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (+ (* -1/2 (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 6))) (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (+ (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4)))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (+ (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2)))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (+ (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 4)))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (+ (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 4))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (pow x-scale 2))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (sin (* 1/180 (* angle (PI))))) (/ (* (pow b 2) (sin (* 1/180 (* angle (PI))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))))) (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))) (pow a 2)))))) (* 1/2 (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* (pow b 2) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 2))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (* 2 (/ (* b b) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (* b b) (* x-scale x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx b #s(hole binary64 b))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* (pow b 2) (+ (* -1/2 (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 2))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* (pow b 2) (+ (* -1/2 (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 4))) (* -1/2 (/ (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 2))))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 2))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 2)))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 4)) (* -1 (/ (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2))))) (pow a 2)))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (* b (cos (* 1/180 (* angle (PI)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (+ (* 1/2 (/ (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))) (pow b 6))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (+ (* 90 (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 4) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ y-scale (pow x-scale 2))) (* 2 (/ (pow a 2) (* (pow b 2) y-scale)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ (pow a 2) (* (pow b 2) (pow y-scale 2)))) (* 2 (/ 1 (pow x-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (PI) (* -1 (/ (* (pow a 2) (PI)) (pow b 2)))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow b 2) (+ 1 (* -1 (/ (pow a 2) (pow b 2)))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* (pow b 6) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* (pow b 6) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* (pow b 6) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow b 4) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (* (pow a 2) (pow b 2)))) (+ (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow b 4) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* (pow b 6) (- (+ (* -2 (/ x-scale (* angle (* (pow b 6) (* y-scale (PI)))))) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow b 4) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))))) (+ (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (* (pow a 2) (pow b 2)))) (+ (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow b 4) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 6) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 6) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 6) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow b 4) (* x-scale (PI))))))) (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))))) (+ (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow b 4) (* y-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* (pow b 4) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* (pow b 4) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* (pow b 4) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow b 4) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (* (pow a 2) (pow b 2)))) (+ (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow b 4) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* (pow b 4) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* (pow b 4) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* (pow b 4) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow b 4) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (* (pow a 2) (pow b 2)))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* (pow b 4) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* (pow b 4) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow b 2) (* x-scale (PI))))))) (* 2 (/ y-scale (* (pow a 6) (* angle (* x-scale (PI))))))) (+ (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ x-scale (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4))) (+ (* -1/2 (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 6))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 6)))) (+ (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2))))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 6)))) (+ (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (pow x-scale 2))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2)))) (* 2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (sin (* 1/180 (* angle (PI)))) (* -1 (/ (* (pow a 2) (sin (* 1/180 (* angle (PI))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2)))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))) (* x-scale (pow (PI) 2)))) (+ (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))) (PI))) (* 180 (/ (* (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5)))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* -1 (* (pow angle 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* -1 (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1 (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* -1 (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))) (* (pow angle 2) (+ (* -1 (* (pow angle 2) (- (* -1/136048896000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (+ (* -1/952342272000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))))))) (* -1 (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* 180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* -1/360 (/ (* y-scale (PI)) x-scale)) (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* -1/360 (/ (* y-scale (PI)) x-scale)) (* (pow angle 2) (- (+ (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (* (pow angle 2) (- (* -1/136048896000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (+ (* -1/952342272000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ 180 (* angle (PI)))))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (* -1/360 (PI)) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (+ (* -1/360 (PI)) (* (pow angle 2) (- (* 1/139968000 (pow (PI) 3)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (+ (* -1/360 (PI)) (* (pow angle 2) (- (+ (* 1/139968000 (pow (PI) 3)) (* (pow angle 2) (- (* -1/136048896000000 (pow (PI) 5)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (pow (PI) 3)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (+ (* -1/952342272000000 (pow (PI) 5)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (PI)) (* -1/1080 (PI)))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* -180 (/ x-scale (* angle (* y-scale (PI))))) #s(hole binary64 (* -180 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (/ x-scale (* angle (* y-scale (PI)))) #s(hole binary64 (/ x-scale (* angle (* y-scale (PI))))))
#s(approx (* angle (* y-scale (PI))) #s(hole binary64 (* angle (* y-scale (PI)))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (/ x-scale angle) #s(hole binary64 (/ x-scale angle)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* -2 (/ x-scale (* y-scale (PI)))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))))) angle)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) angle)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (+ (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) angle)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) angle)))
#s(approx (* angle (* x-scale (PI))) #s(hole binary64 (* angle (* x-scale (PI)))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2))))) angle)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))) angle)))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (* (pow a 4) angle))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) angle)))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) angle)))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (* (pow a 2) angle)))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (/ (- (* 2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* 2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (* (pow a 2) angle))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) angle)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (pow angle 2) (+ (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* 360 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 x-scale))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* 1/64800 (* (pow angle 2) (* x-scale (pow (PI) 2)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/24488801280000000 (* x-scale (pow (PI) 6))) (+ (* 1/1632586752000000 (* x-scale (pow (PI) 6))) (* 1/64800 (* (pow (PI) 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))))))) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* 360 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (+ (* -1/476171136000000 (/ (* (pow b 2) (* y-scale (pow (PI) 5))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))) (* 1/125971200000 (* (pow (PI) 4) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (pow angle 2) (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (pow angle 2) (+ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (pow angle 2) (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow a 2) (* (pow angle 2) (pow (PI) 2))) (pow x-scale 2)))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (* (pow angle 2) (pow (PI) 4))) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow a 2) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow x-scale 2))))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* (pow angle 2) (+ (/ (* (pow a 2) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow x-scale 2)) (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))))))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow a 2) (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (* (pow angle 2) (pow (PI) 4)))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow a 2) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))))))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow a 2) (pow (PI) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* a (* angle (PI))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* -1/34992000 (* a (* (pow angle 2) (pow (PI) 3)))) (* 1/180 (* a (PI)))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* 1/22674816000000 (* a (* (pow angle 2) (pow (PI) 5))))))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (* a (PI))) (* (pow angle 2) (+ (* -1/34992000 (* a (pow (PI) 3))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* a (* (pow angle 2) (pow (PI) 7)))) (* 1/22674816000000 (* a (pow (PI) 5)))))))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/16200 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow x-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 2 (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (pow x-scale 2))))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (* (pow b 2) (pow (PI) 2))) (pow x-scale 2))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (pow x-scale 2)))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (/ (pow b 2) (pow x-scale 2)))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (pow b 2)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* -1/32400 (* (pow angle 2) (* (pow b 2) (pow (PI) 2)))) (pow b 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))) (pow b 2))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (pow b 2))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 b))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* -1/64800 (* (pow angle 2) (* b (pow (PI) 2)))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* 1/25194240000 (* (pow angle 2) (* b (pow (PI) 4)))))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ b (* (pow angle 2) (+ (* -1/64800 (* b (pow (PI) 2))) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (* b (pow (PI) 6)))) (* 1/25194240000 (* b (pow (PI) 4))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* 1/180 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (* 1/180 (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* 1/22674816000000 (* (pow angle 2) (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* (pow (PI) 7) (- (pow b 2) (pow a 2))))) (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (/ x-scale (cos (* 1/180 (* angle (PI)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -1 (/ (+ (* 2 (/ x-scale (* y-scale (PI)))) (* (pow b 2) (- (+ (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))))) angle))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (/ (* (pow b 2) (- (+ (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) angle))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (/ (- (+ (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) angle))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* -1 (/ (+ (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) angle))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* -1 (/ (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2))))) angle))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* -1 (/ (- (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))) angle))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* -1 (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) (* (pow a 4) angle)))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (/ (* (pow b 2) (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI))))))) angle))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) angle))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (* (pow a 2) angle))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* -1 (/ (- (* -2 (/ y-scale (* (pow a 2) (* x-scale (PI))))) (* -2 (/ x-scale (* (pow a 2) (* y-scale (PI)))))) (* (pow a 2) angle)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))))))) x-scale)))
#s(approx (/ y-scale x-scale) #s(hole binary64 (/ y-scale x-scale)))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 180 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* (PI) (- (pow b 2) (pow a 2))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* (pow b 2) y-scale)) (* 2 (/ (* (pow a 2) (pow x-scale 2)) y-scale))) (pow x-scale 2))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 2 (/ (* (pow a 2) (pow x-scale 2)) (pow y-scale 2))) (* 2 (pow b 2))) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) x-scale)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) (* (pow x-scale 2) (- (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* angle (* y-scale (PI)))))))) x-scale)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) x-scale)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow b 2) (* (pow x-scale 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI))))))))) (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))))))) x-scale)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))))) x-scale)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (+ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (* (pow x-scale 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))))) x-scale)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))))) x-scale)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (+ (* (pow b 2) (* (pow x-scale 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) x-scale)))
#s(approx (* x-scale (PI)) #s(hole binary64 (* x-scale (PI))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))) x-scale)))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (+ (* (pow b 2) (* (pow x-scale 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))))) x-scale)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))) x-scale)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* (pow x-scale 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI)))))) x-scale)))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (* x-scale (PI))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow x-scale 2)) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI)))))) x-scale)))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow x-scale 2)) (* (pow a 2) (* angle (* y-scale (PI)))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (PI)))))) x-scale)))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (+ (* -2 (/ (pow x-scale 2) (* (pow a 2) (* angle (* y-scale (PI)))))) (* 2 (/ y-scale (* (pow a 2) (* angle (PI)))))) x-scale)))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* -2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (/ (+ (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))) (* 2 (/ (pow x-scale 2) (* (pow a 4) (* angle (* y-scale (PI))))))) x-scale)))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* 2 (/ y-scale (* (pow a 4) (* angle (* x-scale (PI))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (/ (+ (* -2 (/ (pow x-scale 2) (* (pow a 4) (* angle (* y-scale (PI)))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI)))))) x-scale)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (* 1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))) x-scale)))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 180 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* x-scale (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* x-scale (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* x-scale (- (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* angle (* y-scale (PI)))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* x-scale (- (+ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) (pow x-scale 2))) (* 2 (/ 1 (* angle (* y-scale (PI)))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (* x-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* x-scale (+ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (+ (* 2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) (pow x-scale 2))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* x-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* x-scale (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2)))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* (pow b 2) (* x-scale (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* x-scale (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2)))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* (pow b 2) (* x-scale (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* x-scale (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* x-scale (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* x-scale (- (+ (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (* (pow x-scale 2) (PI))))))) (+ (* -2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (* y-scale (PI))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* x-scale (+ (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (* (pow x-scale 2) (PI))))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* x-scale (+ (* -2 (/ (pow b 2) (* (pow a 2) (* angle (* y-scale (PI)))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* (pow x-scale 2) (PI))))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* x-scale (- (* 2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* 2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* x-scale (+ (* -2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* -2 (/ x-scale (* (pow a 4) (* angle (* y-scale (PI))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* x-scale (- (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* x-scale (+ (* -180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -1 (* x-scale (+ (* (pow b 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* angle (* y-scale (PI))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -1 (* x-scale (+ (* 2 (/ 1 (* angle (* y-scale (PI))))) (+ (* (pow b 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (+ (* -2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) (pow x-scale 2))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* (pow b 2) (* x-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI))))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* x-scale (+ (* (pow b 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (+ (* -2 (/ y-scale (* (pow a 2) (* angle (PI))))) (* (pow b 2) (- (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI))))))))) (pow x-scale 2)))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* x-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (+ (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2)))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* -1 (* (pow b 2) (* x-scale (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* -1 (* (pow b 2) (* x-scale (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI))))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* -1 (* x-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ y-scale (* (pow a 4) (* angle (PI))))))) (pow x-scale 2)))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* -1 (* x-scale (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* -1 (* x-scale (- (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (* (pow x-scale 2) (PI)))))) (+ (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))) (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))))) (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 6) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* y-scale (PI)))))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ (pow b 2) (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ y-scale (* (pow a 2) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* -1 (* x-scale (- (* 2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ y-scale (* (pow a 4) (* angle (* (pow x-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2))))))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7)))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (* y-scale (PI)) #s(hole binary64 (* y-scale (PI))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (PI) (- (pow b 2) (pow a 2)))))) y-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) y-scale)))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) (pow y-scale 2))))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* -2 (/ x-scale (* angle (PI)))) (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI)))))))) y-scale)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (/ (+ (* -2 (/ x-scale (* angle (PI)))) (+ (* (pow b 2) (* (pow y-scale 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))) (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI))))))))) y-scale)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI))))))) y-scale)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* (pow b 2) (* (pow y-scale 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))) (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI)))))))) y-scale)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI)))))) y-scale)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (+ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* (pow y-scale 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI)))))) y-scale)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) y-scale)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (/ (+ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* (pow y-scale 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))) y-scale)))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) y-scale)))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (/ (+ (* (pow b 2) (* (pow y-scale 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))) (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI)))))))) y-scale)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI)))))) y-scale)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (/ (- (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* (pow y-scale 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI)))))) y-scale)))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ (* (pow b 2) (pow y-scale 2)) (* (pow a 6) (* angle (* x-scale (PI))))))) y-scale)))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (PI))))) (* 2 (/ (* (pow b 2) (pow y-scale 2)) (* (pow a 2) (* angle (* x-scale (PI))))))) y-scale)))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (/ (- (* 2 (/ (pow y-scale 2) (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI)))))) y-scale)))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (/ (+ (* -2 (/ (pow y-scale 2) (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI)))))) y-scale)))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (/ (+ (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))) (* 2 (/ (pow y-scale 2) (* (pow a 4) (* angle (* x-scale (PI))))))) y-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* y-scale (+ (* -180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2)))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* (pow b 2) (* y-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* y-scale (+ (* -2 (/ x-scale (* angle (* (pow y-scale 2) (PI))))) (+ (* (pow b 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI))))))) (pow y-scale 2)))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* (pow b 2) (* y-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* y-scale (+ (* (pow b 2) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* 2 (/ x-scale (* (pow a 2) (* angle (PI))))))) (pow y-scale 2))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* y-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* y-scale (- (+ (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2)))) (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow y-scale 2) (PI))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* y-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* y-scale (+ (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))) (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2)))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* (pow b 2) (* y-scale (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* y-scale (+ (* (pow b 2) (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* 2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* y-scale (+ (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* y-scale (- (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (* (pow y-scale 2) (PI)))))) (+ (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))) (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))))) (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI))))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* y-scale (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI))))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ (pow b 2) (* (pow a 2) (* angle (* x-scale (PI))))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* y-scale (+ (* -2 (/ x-scale (* (pow a 2) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* y-scale (- (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* y-scale (+ (* -2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* -1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* -1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -1 (* (pow b 2) (* y-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) #s(hole binary64 (* -1 (* y-scale (+ (* 2 (/ x-scale (* angle (* (pow y-scale 2) (PI))))) (+ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* (pow b 2) (- (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* -2 (/ x-scale (* (pow a 2) (* angle (PI))))))) (pow y-scale 2))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* (pow b 2) (* y-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* y-scale (+ (* (pow b 2) (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* (pow b 2) (- (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (* -2 (/ x-scale (* (pow a 2) (* angle (PI))))))) (pow y-scale 2)))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* y-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* y-scale (- (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2))) (+ (* -2 (/ x-scale (* (pow a 2) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI))))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* -1 (* y-scale (- (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) #s(hole binary64 (* -1 (* y-scale (- (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* -1 (* (pow b 2) (* y-scale (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) #s(hole binary64 (* -1 (* y-scale (+ (* (pow b 2) (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (PI))))) (* -2 (/ x-scale (* (pow a 4) (* angle (PI))))))) (pow y-scale 2)))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* -1 (* y-scale (- (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) #s(hole binary64 (* -1 (* y-scale (- (+ (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (* (pow y-scale 2) (PI))))))) (+ (* -2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI))))))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow b 2) (* (pow a 6) (* angle (* x-scale (PI)))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 6) (* angle (* (pow y-scale 2) (PI)))))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow b 2) (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* (pow y-scale 2) (PI)))))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) #s(hole binary64 (* -1 (* y-scale (- (* 2 (/ x-scale (* (pow a 2) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 2) (* angle (* x-scale (PI)))))))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) #s(hole binary64 (* -1 (* y-scale (- (* 2 (/ x-scale (* (pow a 4) (* angle (* (pow y-scale 2) (PI)))))) (* 2 (/ 1 (* (pow a 4) (* angle (* x-scale (PI)))))))))))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(literal -1 binary64)
(*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (neg.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (neg.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
(/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (neg.f64 y-scale) (neg.f64 x-scale))
(/.f64 y-scale x-scale)
y-scale
x-scale
(/.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
(*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))
#s(literal -180 binary64)
(/.f64 (neg.f64 x-scale) (neg.f64 (*.f64 angle (*.f64 y-scale (PI.f64)))))
(/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))
(*.f64 angle (*.f64 y-scale (PI.f64)))
(*.f64 y-scale (PI.f64))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))
(*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))
#s(literal 90 binary64)
(*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))
(/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))
(/.f64 (neg.f64 x-scale) (neg.f64 angle))
(/.f64 x-scale angle)
(*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))
(/.f64 (neg.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (neg.f64 (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))
(/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))
(*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
(-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
(*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))
#s(literal 2 binary64)
(*.f64 (/.f64 a y-scale) (/.f64 a y-scale))
(/.f64 (neg.f64 (*.f64 a a)) (neg.f64 (*.f64 y-scale y-scale)))
(/.f64 (*.f64 a a) (*.f64 y-scale y-scale))
(*.f64 (neg.f64 a) (neg.f64 a))
(*.f64 (fabs.f64 a) (fabs.f64 a))
(*.f64 a a)
(pow.f64 a #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 a) #s(literal 2 binary64)))
a
(*.f64 (neg.f64 y-scale) (neg.f64 y-scale))
(*.f64 (fabs.f64 y-scale) (fabs.f64 y-scale))
(*.f64 y-scale y-scale)
(pow.f64 y-scale #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
(*.f64 (/.f64 b x-scale) (/.f64 b x-scale))
(/.f64 (neg.f64 (*.f64 b b)) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (*.f64 b b) (*.f64 x-scale x-scale))
(*.f64 (neg.f64 b) (neg.f64 b))
(*.f64 (fabs.f64 b) (fabs.f64 b))
(*.f64 b b)
(pow.f64 b #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 b) #s(literal 2 binary64)))
b
(*.f64 (neg.f64 x-scale) (neg.f64 x-scale))
(*.f64 (fabs.f64 x-scale) (fabs.f64 x-scale))
(*.f64 x-scale x-scale)
(pow.f64 x-scale #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 x-scale) #s(literal 2 binary64)))
(*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))
#s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
(*.f64 #s(literal -1 binary64) (*.f64 a a))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))
(*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))) (-.f64 (*.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))
(fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
(+.f64 (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(literal -2 binary64)
(*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
(-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (-.f64 (*.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))))))
(fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))))))
(+.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))))))
(/.f64 (neg.f64 y-scale) (neg.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))))
(/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))
(*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))
(*.f64 angle (*.f64 x-scale (PI.f64)))
(*.f64 x-scale (PI.f64))
(*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))
(-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))))
(/.f64 (neg.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (neg.f64 (pow.f64 a #s(literal 4 binary64))))
(/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64)))
(*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
(-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
(*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))))
(*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))
(/.f64 (neg.f64 x-scale) (neg.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))
(/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))
(*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))
(pow.f64 a #s(literal 4 binary64))
(exp.f64 (*.f64 (log.f64 a) #s(literal 4 binary64)))
#s(literal 4 binary64)
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))
(/.f64 (neg.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (neg.f64 (*.f64 a a)))
(/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))
(-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 a a)) (/.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
(*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(literal -1/2 binary64)
(*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 (neg.f64 (*.f64 x-scale (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))) (neg.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
(/.f64 (*.f64 x-scale (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 (neg.f64 x-scale) (neg.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))
(/.f64 (neg.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))
(*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
(fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(+.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(/.f64 (neg.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(*.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(*.f64 (*.f64 a a) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
(*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(/.f64 (neg.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(*.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(*.f64 (*.f64 b b) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
(*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) (PI.f64))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (/.f64 (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) (PI.f64)))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))) (*.f64 b b))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (*.f64 b b)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 b b)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (*.f64 b b))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 b b)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))) (*.f64 b b))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (*.f64 b b)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (* 2 (/ (* a a) (* y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (/ (* a a) (* y-scale y-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))
#s(approx (* a a) (*.f64 a a))
#s(approx a a)
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 (*.f64 b b) (PI.f64)))
#s(approx (* (PI) (- (* b b) (* a a))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (PI.f64)) (*.f64 (*.f64 b b) (PI.f64))))
#s(approx (- (* b b) (* a a)) (*.f64 b b))
#s(approx (- (* b b) (* a a)) (fma.f64 #s(literal -1 binary64) (*.f64 a a) (*.f64 b b)))
#s(approx (* -1 (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (/.f64 (fma.f64 (*.f64 a a) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (fma.f64 (*.f64 a a) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (fma.f64 (*.f64 a a) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/.f64 (fma.f64 (*.f64 a a) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (/ y-scale (* (* a a) (* angle (* x-scale (PI))))) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* (* a a) (* angle (* x-scale (PI)))) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (/.f64 (fma.f64 (*.f64 a a) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/.f64 (fma.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))
#s(approx (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))))
#s(approx (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
#s(approx (/ x-scale (* (* a a) (* angle (* y-scale (PI))))) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))
#s(approx (* (* a a) (* angle (* y-scale (PI)))) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))
#s(approx (pow a 4) (pow.f64 a #s(literal 4 binary64)))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 4 binary64)))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 4 binary64))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 b b)))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 b b))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 b b))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))) (pow.f64 a #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 6 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 y-scale #s(literal -1 binary64))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 y-scale #s(literal -2 binary64))))))
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (PI.f64))))
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1 binary64) (PI.f64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a a)))))
#s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
#s(approx (- (* b b) (* a a)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 b b) (*.f64 a a)) #s(literal 1 binary64))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (+.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (+.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)) (+.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64)))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))) (*.f64 a a)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (+.f64 (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)) (/.f64 (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))))) (*.f64 a a)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (+.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))) (*.f64 a a)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (+.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))))) (*.f64 a a)))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (/.f64 (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a))) (pow.f64 a #s(literal 4 binary64))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 4 binary64))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/.f64 (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 6 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))))) (pow.f64 a #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))))) (pow.f64 a #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 a a)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)))) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))
#s(approx (* 2 (/ (* b b) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (* b b) (* x-scale x-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(approx (* b b) (*.f64 b b))
#s(approx b b)
#s(approx (- (* b b) (* a a)) (-.f64 (*.f64 b b) (*.f64 a a)))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a)))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 a a)))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 a a)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (pow.f64 b #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))) (pow.f64 b #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 6 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (pow.f64 b #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (pow.f64 b #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) y-scale))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 x-scale #s(literal -2 binary64))))))
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 (*.f64 b b) (+.f64 (PI.f64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (PI.f64)) (*.f64 b b))))))
#s(approx (- (* b b) (* a a)) (*.f64 (*.f64 b b) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 a a) (*.f64 b b))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 (*.f64 a b) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (pow.f64 b #s(literal 6 binary64)) (*.f64 y-scale (PI.f64))))) (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 (*.f64 a b) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 (pow.f64 b #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (PI.f64)))))) (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (PI.f64)))))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 (*.f64 a b) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (pow.f64 b #s(literal 4 binary64)) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (pow.f64 (*.f64 a b) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 6 binary64))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 x-scale x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 x-scale x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 6 binary64))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 x-scale x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 (*.f64 b b) (+.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 b b))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))))) angle))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) angle))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/881596846080000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))))))) angle))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))))) angle))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))))) angle))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/881596846080000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (*.f64 #s(literal -1/30855889612800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64))))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64)))))) (PI.f64)) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64))))))))))) angle))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))))) angle))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale))))) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))))) angle))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/136048896000000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale))))) (fma.f64 #s(literal -1/952342272000000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) x-scale) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))))))) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)))))))))) angle))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/136048896000000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale))))) (fma.f64 #s(literal -1/952342272000000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) x-scale) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/360 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64)))) (*.f64 #s(literal 1/699840000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))))) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/360 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/139968000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/136048896000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64)))) (*.f64 #s(literal 1/699840000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))))) (fma.f64 #s(literal -1/952342272000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64)))))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64)))) (*.f64 #s(literal 1/699840000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))))) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* 1/180 (* angle (PI))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (* angle (PI)) (*.f64 angle (PI.f64)))
#s(approx angle angle)
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* -180 (/ x-scale (* angle (* y-scale (PI))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
#s(approx (/ x-scale (* angle (* y-scale (PI)))) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))
#s(approx (* angle (* y-scale (PI))) (*.f64 angle (*.f64 y-scale (PI.f64))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (/ x-scale angle) (/.f64 x-scale angle))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 y-scale (PI.f64))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))))) angle))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) angle))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) angle))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))) angle))
#s(approx (* angle (* x-scale (PI))) (*.f64 angle (*.f64 x-scale (PI.f64))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))) angle))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/.f64 (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))) angle))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (*.f64 (/.f64 (*.f64 b b) (pow.f64 a #s(literal 4 binary64))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) angle)))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) angle))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) angle))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 (*.f64 a a) angle))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 (*.f64 a a) angle)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) angle))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))))) angle))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/881596846080000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))))))) angle))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (*.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) angle))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) angle))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/881596846080000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) angle))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale)
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (+.f64 x-scale (*.f64 #s(literal 1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (+.f64 x-scale (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/4199040000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 #s(literal -1/64800 binary64) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (+.f64 x-scale (*.f64 (*.f64 angle angle) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 6 binary64))) (fma.f64 #s(literal 1/1632586752000000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 6 binary64))) (*.f64 #s(literal 1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/4199040000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))) (fma.f64 #s(literal -1/4199040000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 #s(literal -1/64800 binary64) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) angle))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/349920000 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) angle))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/349920000 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (fma.f64 #s(literal -1/476171136000000 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/349920000 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) angle))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale))))))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))))))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)))))))))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)))))))
#s(approx (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale))))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (*.f64 #s(literal 1/32400 binary64) (*.f64 (*.f64 a a) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 a a) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (*.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (*.f64 angle (PI.f64)))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (*.f64 #s(literal 1/180 binary64) (*.f64 a (PI.f64))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 a (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 a (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 a (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))) (*.f64 x-scale x-scale)))))))
#s(approx (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))) (*.f64 x-scale x-scale))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))) (*.f64 x-scale x-scale)))) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (*.f64 b b))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64))) (*.f64 b b)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 b b)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (*.f64 b b)))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) b)
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (+.f64 b (*.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (+.f64 b (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.f64 (PI.f64) (PI.f64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (+.f64 b (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 b (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (cos (* 1/180 (* angle (PI)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (sin (* 1/180 (* angle (PI)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 y-scale (PI.f64))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))))) angle)))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) angle)))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) angle)))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))) angle)))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))) angle)))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))) angle)))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 b b) (pow.f64 a #s(literal 4 binary64))) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) angle))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))))))) angle)))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) angle)))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 (*.f64 a a) angle)))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))))) (*.f64 (*.f64 a a) angle))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))) x-scale))
#s(approx (/ y-scale x-scale) (/.f64 y-scale x-scale))
#s(approx x-scale x-scale)
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 180 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) x-scale))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) x-scale))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (PI.f64)) (/.f64 y-scale (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 x-scale x-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 b b) y-scale) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) y-scale))) (*.f64 x-scale x-scale)))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 b b))) (*.f64 x-scale x-scale)))
#s(approx (* x-scale x-scale) (*.f64 x-scale x-scale))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))))) x-scale))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (/.f64 (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))))) (*.f64 (*.f64 x-scale x-scale) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 angle (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)))))) x-scale))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))))) x-scale))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (fma.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))))))) x-scale))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))))) x-scale))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 x-scale x-scale) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))))) x-scale))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))))) x-scale))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (fma.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))))) x-scale))
#s(approx (* x-scale (PI)) (*.f64 x-scale (PI.f64)))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) x-scale))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (/.f64 (fma.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))))) x-scale))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))) x-scale))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 x-scale x-scale) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))) x-scale))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64)))))) x-scale))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 y-scale (*.f64 angle (PI.f64)))))) x-scale))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 x-scale x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))))) x-scale))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 x-scale x-scale) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))) x-scale))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 x-scale x-scale) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))) x-scale))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))) x-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 x-scale (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 angle (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 x-scale (-.f64 (fma.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 angle (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 (*.f64 b b) (*.f64 x-scale (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 x-scale (fma.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))))) (*.f64 x-scale x-scale)))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 x-scale (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 x-scale (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 (*.f64 b b) (*.f64 x-scale (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 x-scale x-scale))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 (*.f64 b b) (*.f64 x-scale (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 x-scale (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 x-scale (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 x-scale (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 x-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (*.f64 x-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) x-scale)))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 angle (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 angle (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)) (fma.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))))) (*.f64 x-scale x-scale)))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (*.f64 x-scale (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))))) (*.f64 x-scale x-scale))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 x-scale x-scale))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (*.f64 x-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 x-scale x-scale)))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (*.f64 x-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 x-scale x-scale))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 y-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))))))
#s(approx y-scale y-scale)
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale))
#s(approx (* y-scale (PI)) (*.f64 y-scale (PI.f64)))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) y-scale))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) y-scale))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) (*.f64 y-scale y-scale)))
#s(approx (* y-scale y-scale) (*.f64 y-scale y-scale))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (PI.f64))) (*.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))))))) y-scale))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (PI.f64))) (fma.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64))))))))) y-scale))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64))))))) y-scale))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (fma.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))))))) y-scale))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))))) y-scale))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))))) y-scale))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) y-scale))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (/.f64 (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))) y-scale))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) y-scale))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (/.f64 (fma.f64 (*.f64 b b) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))))) y-scale))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))) y-scale))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64)))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))) y-scale))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) y-scale))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 x-scale (*.f64 angle (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))))) y-scale))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64)))))) y-scale))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale y-scale) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))))) y-scale))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale y-scale) (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))))) y-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 7 binary64)) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 y-scale (fma.f64 #s(literal -180 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64)))) (fma.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64))))))) (*.f64 y-scale y-scale))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 y-scale (fma.f64 (*.f64 b b) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64))))))) (*.f64 y-scale y-scale)))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 y-scale (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 y-scale (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 y-scale y-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64)))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 y-scale (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)) (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 y-scale y-scale))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 y-scale (fma.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 y-scale y-scale)))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 y-scale (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))) (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64)))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 7 binary64)) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (*.f64 y-scale (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))))
#s(approx (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64)))) (fma.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64))))))) (*.f64 y-scale y-scale)))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (*.f64 y-scale (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))))
#s(approx (* (* b b) (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (PI.f64))))))) (*.f64 y-scale y-scale))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (-.f64 (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (-.f64 (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (*.f64 y-scale (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))))
#s(approx (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (PI.f64))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (PI.f64))))))) (*.f64 y-scale y-scale))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64))))))))
#s(approx (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))))))))
#s(approx (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))))))))
#s(approx (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))))
#s(approx (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 (*.f64 y-scale y-scale) (PI.f64)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (*.f64 angle (*.f64 x-scale (PI.f64)))) #s(literal -1 binary64)))))))

eval241.0ms (1.1%)

Memory
3.2MiB live, 324.3MiB allocated; 31ms collecting garbage
Compiler

Compiled 363 342 to 10 892 computations (97% saved)

prune664.0ms (3.1%)

Memory
35.6MiB live, 994.5MiB allocated; 41ms collecting garbage
Pruning

48 alts after pruning (46 fresh and 2 done)

PrunedKeptTotal
New1 092191 111
Fresh172744
Picked325
Done000
Total1 112481 160
Accuracy
83.0%
Counts
1 160 → 48
Alt Table
Click to see full alt table
StatusAccuracyProgram
16.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
11.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
12.1%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
14.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
19.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
23.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
13.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
10.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
3.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
▶6.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
17.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
13.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) y-scale)) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
5.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
18.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
14.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
11.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
13.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
3.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
31.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
19.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
23.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))))) (PI.f64)))
12.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) #s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))))) (PI.f64)))
31.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 #s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
6.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) #s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
29.7%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) #s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
45.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale #s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 #s(literal -2 binary64) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
45.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))) (PI.f64)))
37.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))) (PI.f64)))
19.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
▶23.7%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
19.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
40.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)))))))) (PI.f64)))
20.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 #s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
17.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))) (PI.f64)))
9.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
3.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
▶40.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
✓13.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
19.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
46.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
▶48.1%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
✓47.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
39.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
▶45.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
44.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
41.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
40.0%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
46.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
Compiler

Compiled 23 385 to 7 718 computations (67% saved)

series580.0ms (2.7%)

Memory
11.6MiB live, 616.1MiB allocated; 114ms collecting garbage
Counts
83 → 348
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(literal -1 binary64)
(*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 y-scale x-scale)
y-scale
x-scale
(/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(/.f64 (PI.f64) #s(literal 2 binary64))
#s(literal 2 binary64)
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
(*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))
#s(literal -180 binary64)
(/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))
(*.f64 angle (*.f64 x-scale (PI.f64)))
(*.f64 x-scale (PI.f64))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))
(*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))
#s(literal 90 binary64)
(*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))
(/.f64 x-scale angle)
(/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))
(*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
(*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))
(*.f64 (/.f64 a y-scale) (/.f64 a y-scale))
(/.f64 a y-scale)
a
(*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))
#s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
(*.f64 #s(literal -1 binary64) (*.f64 a a))
(*.f64 a a)
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
(*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64))
#s(literal 1 binary64)
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
(*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(literal -1/2 binary64)
(*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
(/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))
(*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
(*.f64 b b)
b
(*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(*.f64 x-scale x-scale)
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
Outputs
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) #s(hole binary64 (* 180 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI)))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) #s(hole binary64 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI))))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) #s(hole binary64 (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))) (pow b 2)))))) (* 1/2 (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* (pow a 2) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ y-scale (* (pow x-scale 2) (PI))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 2))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI)))))) (pow b 2)))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* 2 (/ (pow a 2) y-scale)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* 2 (* (/ a y-scale) (/ a y-scale))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (* (/ a y-scale) (/ a y-scale)) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (/ a y-scale) #s(hole binary64 (/ a y-scale)))
#s(approx a #s(hole binary64 a))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (PI))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (PI))) (* (pow b 2) (PI)))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (pow b 2)))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (+ (* -1 (pow a 2)) (pow b 2))))
#s(approx (* -1 (* a a)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (* a a) #s(hole binary64 (pow a 2)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* -1/2 (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (+ (* -1/2 (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (+ (* -1/2 (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 4))) (* -1/2 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (sin (* 1/180 (* angle (PI)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (+ (* 1/2 (/ (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))) (pow a 6))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (+ (* 90 (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI))))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4)))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ -2 (* y-scale (PI)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 6))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (pow a 2) y-scale))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 y-scale))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (pow b 2) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 (pow y-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (PI)))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (PI)) (/ (* (pow b 2) (PI)) (pow a 2))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (pow a 2)) 1))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (+ (* -1/2 (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 6))) (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (+ (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4)))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (+ (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2)))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (+ (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 4)))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (+ (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 4))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (pow x-scale 2))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (sin (* 1/180 (* angle (PI))))) (/ (* (pow b 2) (sin (* 1/180 (* angle (PI))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))))) (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))) (pow a 2)))))) (* 1/2 (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* (pow b 2) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 2))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* (pow b 2) (+ (* -1/2 (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 2))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* (pow b 2) (+ (* -1/2 (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 4))) (* -1/2 (/ (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 2))))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 2))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 2)))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 4)) (* -1 (/ (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2))))) (pow a 2)))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx b #s(hole binary64 b))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (+ (* 1/2 (/ (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))) (pow b 6))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (+ (* 90 (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 4) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ y-scale (pow x-scale 2))) (* 2 (/ (pow a 2) (* (pow b 2) y-scale)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ (pow a 2) (* (pow b 2) (pow y-scale 2)))) (* 2 (/ 1 (pow x-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (PI) (* -1 (/ (* (pow a 2) (PI)) (pow b 2)))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow b 2) (+ 1 (* -1 (/ (pow a 2) (pow b 2)))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4))) (+ (* -1/2 (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 6))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 6)))) (+ (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2))))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 6)))) (+ (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (pow x-scale 2))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (sin (* 1/180 (* angle (PI)))) (* -1 (/ (* (pow a 2) (sin (* 1/180 (* angle (PI))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2)))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))) (* x-scale (pow (PI) 2)))) (+ (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))) (PI))) (* 180 (/ (* (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5)))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ (* y-scale (sin (* 1/2 (PI)))) (* angle (* x-scale (PI)))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (* -1 (/ (* angle (* y-scale (cos (* 1/2 (PI))))) x-scale))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (* angle (+ (* -1 (* angle (- (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale))))) (* -1 (/ (* y-scale (cos (* 1/2 (PI)))) x-scale))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (* angle (+ (* -1 (/ (* y-scale (cos (* 1/2 (PI)))) x-scale)) (* angle (+ (* -1 (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (* (pow (PI) 3) (sin (* 1/2 (PI))))) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale))))) (* 1/699840000 (/ (* y-scale (* (pow (PI) 3) (sin (* 1/2 (PI))))) x-scale)))))) (* -1 (- (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale))))))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* 180 (/ (* y-scale (sin (* 1/2 (PI)))) (* angle (* x-scale (PI)))))))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (/ (* angle (* y-scale (cos (* 1/2 (PI))))) x-scale)) angle)))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (* angle (+ (* angle (- (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)))) (/ (* y-scale (cos (* 1/2 (PI)))) x-scale)))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (* angle (+ (* angle (- (+ (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (* (pow (PI) 3) (sin (* 1/2 (PI))))) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale))))) (* 1/699840000 (/ (* y-scale (* (pow (PI) 3) (sin (* 1/2 (PI))))) x-scale)))))) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)))) (/ (* y-scale (cos (* 1/2 (PI)))) x-scale)))) angle)))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 180 (/ (sin (* 1/2 (PI))) (* angle (PI))))))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* 180 (/ (sin (* 1/2 (PI))) (PI))) (* angle (cos (* 1/2 (PI))))) angle)))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* 180 (/ (sin (* 1/2 (PI))) (PI))) (* angle (+ (cos (* 1/2 (PI))) (* angle (- (* -1/360 (* (PI) (sin (* 1/2 (PI))))) (* -1/1080 (* (PI) (sin (* 1/2 (PI)))))))))) angle)))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* 180 (/ (sin (* 1/2 (PI))) (PI))) (* angle (+ (cos (* 1/2 (PI))) (* angle (- (+ (* -1/360 (* (PI) (sin (* 1/2 (PI))))) (* (pow angle 2) (- (* 1/139968000 (* (pow (PI) 3) (sin (* 1/2 (PI))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (* (PI) (sin (* 1/2 (PI))))) (* -1/1080 (* (PI) (sin (* 1/2 (PI)))))))) (* 1/699840000 (* (pow (PI) 3) (sin (* 1/2 (PI))))))))) (* -1/1080 (* (PI) (sin (* 1/2 (PI)))))))))) angle)))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/180 (* angle (* (PI) (cos (* 1/2 (PI)))))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* angle (+ (* -1/64800 (* angle (* (pow (PI) 2) (sin (* 1/2 (PI)))))) (* 1/180 (* (PI) (cos (* 1/2 (PI))))))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* angle (+ (* 1/180 (* (PI) (cos (* 1/2 (PI))))) (* angle (+ (* -1/64800 (* (pow (PI) 2) (sin (* 1/2 (PI))))) (* -1/34992000 (* angle (* (pow (PI) 3) (cos (* 1/2 (PI)))))))))))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* -180 (/ y-scale (* angle (* x-scale (PI))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (/ y-scale (* angle (* x-scale (PI)))) #s(hole binary64 (/ y-scale (* angle (* x-scale (PI))))))
#s(approx (* angle (* x-scale (PI))) #s(hole binary64 (* angle (* x-scale (PI)))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (/ x-scale angle) #s(hole binary64 (/ x-scale angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* -1 (* (pow angle 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* -1 (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1 (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* -1 (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))) (* (pow angle 2) (+ (* -1 (* (pow angle 2) (- (* -1/136048896000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (+ (* -1/952342272000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))))))) (* -1 (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* 180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* -1/360 (/ (* y-scale (PI)) x-scale)) (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* -1/360 (/ (* y-scale (PI)) x-scale)) (* (pow angle 2) (- (+ (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (* (pow angle 2) (- (* -1/136048896000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (+ (* -1/952342272000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ 180 (* angle (PI)))))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (* -1/360 (PI)) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (+ (* -1/360 (PI)) (* (pow angle 2) (- (* 1/139968000 (pow (PI) 3)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (+ (* -1/360 (PI)) (* (pow angle 2) (- (+ (* 1/139968000 (pow (PI) 3)) (* (pow angle 2) (- (* -1/136048896000000 (pow (PI) 5)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (pow (PI) 3)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (+ (* -1/952342272000000 (pow (PI) 5)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (PI)) (* -1/1080 (PI)))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) angle)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (pow angle 2) (+ (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* 360 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 x-scale))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* 1/64800 (* (pow angle 2) (* x-scale (pow (PI) 2)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/24488801280000000 (* x-scale (pow (PI) 6))) (+ (* 1/1632586752000000 (* x-scale (pow (PI) 6))) (* 1/64800 (* (pow (PI) 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))))))) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* 360 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (+ (* -1/476171136000000 (/ (* (pow b 2) (* y-scale (pow (PI) 5))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))) (* 1/125971200000 (* (pow (PI) 4) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (pow angle 2) (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (pow angle 2) (+ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (pow angle 2) (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/16200 (/ (* (pow angle 2) (* (pow b 2) (* y-scale (pow (PI) 2)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (* y-scale (pow (PI) 2))) (pow x-scale 2))) (* 2 (/ (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2))))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (* y-scale (pow (PI) 2))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (pow x-scale 2))))))))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 2) y-scale) (pow x-scale 2))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (* (pow b 2) (* y-scale (pow (PI) 2)))) (pow x-scale 2))) (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (* y-scale (pow (PI) 2))) (pow x-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (* y-scale (pow (PI) 2))) (pow x-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (pow x-scale 2)) (/ (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (pow x-scale 2)))))) (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow b 2) y-scale)))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* -1/32400 (* (pow angle 2) (* (pow b 2) (* y-scale (pow (PI) 2))))) (* (pow b 2) y-scale))))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (* y-scale (pow (PI) 2)))) (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) y-scale))))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (* y-scale (pow (PI) 2)))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow b 2) y-scale))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 y-scale))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ y-scale (* -1/32400 (* (pow angle 2) (* y-scale (pow (PI) 2)))))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ y-scale (* (pow angle 2) (+ (* -1/32400 (* y-scale (pow (PI) 2))) (* (pow angle 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ y-scale (* (pow angle 2) (+ (* -1/32400 (* y-scale (pow (PI) 2))) (* (pow angle 2) (+ (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow angle 2) (* y-scale (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* -1/32400 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* 1/180 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (* 1/180 (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* 1/22674816000000 (* (pow angle 2) (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* (pow (PI) 7) (- (pow b 2) (pow a 2))))) (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (* y-scale (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI))))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* 1/2 (/ (PI) angle))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (/ x-scale (cos (* 1/180 (* angle (PI)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 2)))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (* -1 (* angle (+ (* -1/2 (/ (PI) angle)) (* -1/180 (PI)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))))))) x-scale)))
#s(approx (/ y-scale x-scale) #s(hole binary64 (/ y-scale x-scale)))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 180 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (* x-scale (PI)) #s(hole binary64 (* x-scale (PI))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* (PI) (- (pow b 2) (pow a 2))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* (pow b 2) y-scale)) (* 2 (/ (* (pow a 2) (pow x-scale 2)) y-scale))) (pow x-scale 2))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 2 (/ (* (pow a 2) (pow x-scale 2)) (pow y-scale 2))) (* 2 (pow b 2))) (pow x-scale 2))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (* 1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))) x-scale)))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 180 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* x-scale (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* x-scale (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* x-scale (+ (* -180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2))))))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7)))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (PI) (- (pow b 2) (pow a 2)))))) y-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) y-scale)))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) (pow y-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* y-scale (+ (* -180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* -1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* -1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))))
Calls

15 calls:

TimeVariablePointExpression
115.0ms
a
@0
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/ y-scale x-scale) y-scale x-scale (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) 1/180 (* angle (PI)) angle (PI) (/ (PI) 2) 2 (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* -180 (/ y-scale (* angle (* x-scale (PI))))) -180 (/ y-scale (* angle (* x-scale (PI)))) (* angle (* x-scale (PI))) (* x-scale (PI)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (* (/ a y-scale) (/ a y-scale))) (* (/ a y-scale) (/ a y-scale)) (/ a y-scale) a (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* -1 (* a a)) (* a a) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) 1 (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* b b) b (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)))
39.0ms
b
@0
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/ y-scale x-scale) y-scale x-scale (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) 1/180 (* angle (PI)) angle (PI) (/ (PI) 2) 2 (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* -180 (/ y-scale (* angle (* x-scale (PI))))) -180 (/ y-scale (* angle (* x-scale (PI)))) (* angle (* x-scale (PI))) (* x-scale (PI)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (* (/ a y-scale) (/ a y-scale))) (* (/ a y-scale) (/ a y-scale)) (/ a y-scale) a (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* -1 (* a a)) (* a a) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) 1 (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* b b) b (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)))
34.0ms
angle
@0
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/ y-scale x-scale) y-scale x-scale (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) 1/180 (* angle (PI)) angle (PI) (/ (PI) 2) 2 (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* -180 (/ y-scale (* angle (* x-scale (PI))))) -180 (/ y-scale (* angle (* x-scale (PI)))) (* angle (* x-scale (PI))) (* x-scale (PI)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (* (/ a y-scale) (/ a y-scale))) (* (/ a y-scale) (/ a y-scale)) (/ a y-scale) a (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* -1 (* a a)) (* a a) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) 1 (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* b b) b (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)))
31.0ms
angle
@-inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/ y-scale x-scale) y-scale x-scale (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) 1/180 (* angle (PI)) angle (PI) (/ (PI) 2) 2 (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* -180 (/ y-scale (* angle (* x-scale (PI))))) -180 (/ y-scale (* angle (* x-scale (PI)))) (* angle (* x-scale (PI))) (* x-scale (PI)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (* (/ a y-scale) (/ a y-scale))) (* (/ a y-scale) (/ a y-scale)) (/ a y-scale) a (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* -1 (* a a)) (* a a) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) 1 (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* b b) b (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)))
27.0ms
a
@inf
((* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/ y-scale x-scale) y-scale x-scale (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) 1/180 (* angle (PI)) angle (PI) (/ (PI) 2) 2 (sin (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (* -180 (/ y-scale (* angle (* x-scale (PI))))) -180 (/ y-scale (* angle (* x-scale (PI)))) (* angle (* x-scale (PI))) (* x-scale (PI)) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (* 2 (* (/ a y-scale) (/ a y-scale))) (* (/ a y-scale) (/ a y-scale)) (/ a y-scale) a (* (PI) (- (* b b) (* a a))) (- (* b b) (* a a)) (* -1 (* a a)) (* a a) (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) 1 (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/ x-scale (cos (* 1/180 (* angle (PI))))) (cos (* 1/180 (* angle (PI)))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* b b) b (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)))

rewrite353.0ms (1.6%)

Memory
14.8MiB live, 385.6MiB allocated; 52ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0299681867
0309977522
0925475938
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
431 → 483
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(literal -1 binary64)
(*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 y-scale x-scale)
y-scale
x-scale
(/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(/.f64 (PI.f64) #s(literal 2 binary64))
#s(literal 2 binary64)
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
(*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))
#s(literal -180 binary64)
(/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))
(*.f64 angle (*.f64 x-scale (PI.f64)))
(*.f64 x-scale (PI.f64))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))
(*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))
#s(literal 90 binary64)
(*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))
(/.f64 x-scale angle)
(/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))
(*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))
(*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)))
(*.f64 (/.f64 a y-scale) (/.f64 a y-scale))
(/.f64 a y-scale)
a
(*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))
#s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
(*.f64 #s(literal -1 binary64) (*.f64 a a))
(*.f64 a a)
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
(*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64))
#s(literal 1 binary64)
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
(*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(literal -1/2 binary64)
(*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))
(/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))
(*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
(*.f64 b b)
b
(*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(*.f64 x-scale x-scale)
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) #s(hole binary64 (* 180 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI)))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) #s(hole binary64 (/ (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (PI))))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) #s(hole binary64 (atan (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow a 2) (+ (* 1/2 (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))) (pow b 2)))))) (* 1/2 (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow b 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (+ (* 90 (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (* (pow a 2) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 2))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* (pow a 2) (- (+ (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ x-scale (* angle (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI))))))) (pow b 2)))))) (* 2 (/ y-scale (* angle (* (pow b 2) (* x-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ y-scale (* (pow x-scale 2) (PI))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 2))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* (pow a 2) (- (+ (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ 1 (* (pow b 2) (* y-scale (PI))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI)))))) (pow b 2)))))) (* 2 (/ y-scale (* (pow b 2) (* (pow x-scale 2) (PI))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* 2 (/ (pow a 2) y-scale)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* 2 (* (/ a y-scale) (/ a y-scale))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (* (/ a y-scale) (/ a y-scale)) #s(hole binary64 (/ (pow a 2) (pow y-scale 2))))
#s(approx (/ a y-scale) #s(hole binary64 (/ a y-scale)))
#s(approx a #s(hole binary64 a))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (PI))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (PI))) (* (pow b 2) (PI)))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (pow b 2)))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (+ (* -1 (pow a 2)) (pow b 2))))
#s(approx (* -1 (* a a)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (* a a) #s(hole binary64 (pow a 2)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* -1/2 (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (+ (* -1/2 (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (+ (* -1/2 (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 4))) (* -1/2 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 2))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))) (pow b 2))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* (pow a 2) (- (+ (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* (pow a 2) (- (/ (* (pow a 2) (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))) (pow b 4)) (* -1 (/ (- (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow b 2) (pow x-scale 2)))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 2)))))) (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (sin (* 1/180 (* angle (PI)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (pow a 2))) (+ (* 1/2 (/ (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))) (pow a 6))) (* 1/2 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (/ (* (pow b 2) (* x-scale (* y-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) (pow a 4))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (+ (* 90 (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6))) (* 90 (/ (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI)))))) (pow a 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ x-scale (* angle (* y-scale (PI)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI))))))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4)))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (PI))))) (* 2 (/ (* (pow b 2) x-scale) (* angle (* y-scale (PI))))))) (pow a 4))) (* 2 (/ (* (pow b 2) x-scale) (* (pow a 2) (* angle (* y-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ -2 (* y-scale (PI)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* (pow b 2) y-scale) (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 4) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 6))) (+ (* -1 (/ (* (pow b 2) (- (* 2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (PI)))) (* 2 (/ (pow b 2) (* y-scale (PI)))))) (pow a 4))) (+ (* 2 (/ (pow b 2) (* (pow a 2) (* y-scale (PI))))) (* 2 (/ 1 (* y-scale (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (pow a 2) y-scale))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 y-scale))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow a 2) (pow y-scale 2)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 2) (+ (* -2 (/ (pow b 2) (* (pow a 2) (pow x-scale 2)))) (* 2 (/ 1 (pow y-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (PI)))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (PI)) (/ (* (pow b 2) (PI)) (pow a 2))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* -1 (pow a 2))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow a 2) (- (/ (pow b 2) (pow a 2)) 1))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (+ (* -1/2 (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 6))) (+ (* -1/2 (/ (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (pow a 2))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (+ (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4)))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (+ (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 4))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2)))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (+ (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 4)))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (+ (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 4) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 6)))) (+ (* -1 (/ (* (pow b 2) (- (* -2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))))) (pow a 4))) (* 2 (/ (* (pow b 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow a 2) (pow x-scale 2))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* (pow a 2) (+ (* 2 (/ (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (pow x-scale 2))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (sin (* 1/180 (* angle (PI))))) (/ (* (pow b 2) (sin (* 1/180 (* angle (PI))))) (pow a 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (* (pow b 2) (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))))) (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* -1/2 (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (+ (* 1/2 (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (* -1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* -1 (/ (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2)))) (pow a 2)))))) (* 1/2 (- (* 1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* -1 (/ (- (* -1 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (pow a 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 4) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow a 2))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* 90 (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (+ (* 90 (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (* (pow b 2) (+ (* 90 (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4))) (* 90 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 2))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ x-scale (* angle (* y-scale (PI))))) (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI))))))) (pow a 2)))))) (* 2 (/ x-scale (* (pow a 2) (* angle (* y-scale (PI)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 2))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (* (pow b 2) (- (+ (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (pow a 2) (* (pow x-scale 2) (PI))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI)))))) (pow a 2)))))) (* 2 (/ 1 (* (pow a 2) (* y-scale (PI))))))) (* 2 (/ 1 (* y-scale (PI)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (- (pow b 2) (pow a 2))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1/2 (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* (pow b 2) (+ (* -1/2 (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 2))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* (pow b 2) (+ (* -1/2 (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 4))) (* -1/2 (/ (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 2))))))) (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 2))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))) (pow a 4)) (* -1 (/ (- (* -2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (pow a 2)))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (/ (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (pow x-scale 2))) (* (pow b 2) (- (+ (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* (pow b 2) (- (/ (* (pow b 2) (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 4)) (* -1 (/ (- (* -2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2))))) (pow a 2)))))) (* 2 (/ (* y-scale (sin (* 1/180 (* angle (PI))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow b 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx b #s(hole binary64 b))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (+ (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* 1/2 (/ (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))) (pow b 4))) (+ (* 1/2 (/ (- (* 1/4 (* (/ (* x-scale (* y-scale (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (* -1 (* (pow a 2) (- (* -1/2 (* (/ (* x-scale (* y-scale (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (* -1 (* (pow a 2) (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))) (pow b 6))) (* 1/2 (/ (- (/ (* x-scale (* y-scale (- (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (+ (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (* -1 (/ (* (pow a 2) (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -180 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 90 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (+ (* 90 (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6))) (* 90 (/ (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI)))))) (pow b 2))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI))))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* angle (* x-scale (PI))))) (+ (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow b 2) (* y-scale (PI)))))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (PI))))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* x-scale (PI))))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* angle (* (pow b 2) (* x-scale (PI))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI)))))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* -2 (/ y-scale (* (pow x-scale 2) (PI)))) (+ (* 2 (/ (pow a 2) (* (pow b 2) (* y-scale (PI))))) (/ (* (pow a 4) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 6)))) (+ (* -1 (/ (* (pow a 2) (- (* 2 (/ (pow a 2) (* y-scale (PI)))) (* 2 (/ (* (pow a 2) y-scale) (* (pow x-scale 2) (PI)))))) (pow b 4))) (* 2 (/ (* (pow a 2) y-scale) (* (pow b 2) (* (pow x-scale 2) (PI)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* -2 (/ y-scale (pow x-scale 2))) (* 2 (/ (pow a 2) (* (pow b 2) y-scale)))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 2) (- (* 2 (/ (pow a 2) (* (pow b 2) (pow y-scale 2)))) (* 2 (/ 1 (pow x-scale 2)))))))
#s(approx (* (PI) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (PI) (* -1 (/ (* (pow a 2) (PI)) (pow b 2)))))))
#s(approx (- (* b b) (* a a)) #s(hole binary64 (* (pow b 2) (+ 1 (* -1 (/ (pow a 2) (pow b 2)))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2)))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/2 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4))) (+ (* -1/2 (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 6))) (* -1/2 (/ (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (pow b 2))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI))))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (cos (* 1/180 (* angle (PI)))))))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 6)))) (+ (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* (pow b 2) (* x-scale (sin (* 1/180 (* angle (PI)))))))) (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* x-scale (cos (* 1/180 (* angle (PI))))))) (* -2 (/ (* (pow a 2) (* y-scale (cos (* 1/180 (* angle (PI)))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2))))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (- (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))) (+ (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (pow x-scale 2)))) (/ (* (pow a 4) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 6)))) (+ (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI)))))))) (* -1 (/ (* (pow a 2) (- (* 2 (/ (* (pow a 2) (* y-scale (sin (* 1/180 (* angle (PI)))))) (pow x-scale 2))) (* -2 (/ (* (pow a 2) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (sin (* 1/180 (* angle (PI))))))))) (pow b 4)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* (pow b 2) (+ (* 2 (/ (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow a 2) (* y-scale (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (pow x-scale 2))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (sin (* 1/180 (* angle (PI)))) (* -1 (/ (* (pow a 2) (sin (* 1/180 (* angle (PI))))) (pow b 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2)))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))) (+ (* 2 (* (- (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (/ (* (pow a 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)) (/ (* (pow b 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/2 (/ (* (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2))))) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (+ (* 1/2 (/ (- (+ (* 2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow b 2) (pow (PI) 4)) (pow y-scale 2))) (/ (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) 2))) (* 1/4 (/ (pow (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) 2) (pow (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))) 2)))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2)))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))) (- (/ (pow b 2) (pow x-scale 2)) (/ (pow a 2) (pow y-scale 2)))))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 32400 (/ (* x-scale (* y-scale (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2))))))))) angle)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))) (* x-scale (pow (PI) 2)))) (+ (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))) (PI))) (* 180 (/ (* (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5)))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI)))))))) (* 1/2 (- (* 180 (/ (* x-scale (* y-scale (- (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (PI))) (+ (* -64800 (/ (* y-scale (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))) (* x-scale (pow (PI) 2)))) (* 180 (/ (* (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))) (- (* 180 (/ (* x-scale (* y-scale (- (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (PI))) (* -64800 (/ (* y-scale (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3)))) (* x-scale (pow (PI) 2)))))) (PI))))))))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ (* y-scale (sin (* 1/2 (PI)))) (* angle (* x-scale (PI)))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (* -1 (/ (* angle (* y-scale (cos (* 1/2 (PI))))) x-scale))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (* angle (+ (* -1 (* angle (- (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale))))) (* -1 (/ (* y-scale (cos (* 1/2 (PI)))) x-scale))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (* angle (+ (* -1 (/ (* y-scale (cos (* 1/2 (PI)))) x-scale)) (* angle (+ (* -1 (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (* (pow (PI) 3) (sin (* 1/2 (PI))))) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale))))) (* 1/699840000 (/ (* y-scale (* (pow (PI) 3) (sin (* 1/2 (PI))))) x-scale)))))) (* -1 (- (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale))))))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* 180 (/ (* y-scale (sin (* 1/2 (PI)))) (* angle (* x-scale (PI)))))))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (/ (* angle (* y-scale (cos (* 1/2 (PI))))) x-scale)) angle)))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (* angle (+ (* angle (- (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)))) (/ (* y-scale (cos (* 1/2 (PI)))) x-scale)))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ (* y-scale (sin (* 1/2 (PI)))) (* x-scale (PI)))) (* angle (+ (* angle (- (+ (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (* (pow (PI) 3) (sin (* 1/2 (PI))))) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale))))) (* 1/699840000 (/ (* y-scale (* (pow (PI) 3) (sin (* 1/2 (PI))))) x-scale)))))) (* -1/1080 (/ (* y-scale (* (PI) (sin (* 1/2 (PI))))) x-scale)))) (/ (* y-scale (cos (* 1/2 (PI)))) x-scale)))) angle)))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 180 (/ (sin (* 1/2 (PI))) (* angle (PI))))))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* 180 (/ (sin (* 1/2 (PI))) (PI))) (* angle (cos (* 1/2 (PI))))) angle)))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* 180 (/ (sin (* 1/2 (PI))) (PI))) (* angle (+ (cos (* 1/2 (PI))) (* angle (- (* -1/360 (* (PI) (sin (* 1/2 (PI))))) (* -1/1080 (* (PI) (sin (* 1/2 (PI)))))))))) angle)))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* 180 (/ (sin (* 1/2 (PI))) (PI))) (* angle (+ (cos (* 1/2 (PI))) (* angle (- (+ (* -1/360 (* (PI) (sin (* 1/2 (PI))))) (* (pow angle 2) (- (* 1/139968000 (* (pow (PI) 3) (sin (* 1/2 (PI))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (* (PI) (sin (* 1/2 (PI))))) (* -1/1080 (* (PI) (sin (* 1/2 (PI)))))))) (* 1/699840000 (* (pow (PI) 3) (sin (* 1/2 (PI))))))))) (* -1/1080 (* (PI) (sin (* 1/2 (PI)))))))))) angle)))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/180 (* angle (* (PI) (cos (* 1/2 (PI)))))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* angle (+ (* -1/64800 (* angle (* (pow (PI) 2) (sin (* 1/2 (PI)))))) (* 1/180 (* (PI) (cos (* 1/2 (PI))))))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* angle (+ (* 1/180 (* (PI) (cos (* 1/2 (PI))))) (* angle (+ (* -1/64800 (* (pow (PI) 2) (sin (* 1/2 (PI))))) (* -1/34992000 (* angle (* (pow (PI) 3) (cos (* 1/2 (PI)))))))))))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 90 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* -180 (/ y-scale (* angle (* x-scale (PI))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (/ y-scale (* angle (* x-scale (PI)))) #s(hole binary64 (/ y-scale (* angle (* x-scale (PI))))))
#s(approx (* angle (* x-scale (PI))) #s(hole binary64 (* angle (* x-scale (PI)))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (* x-scale (* y-scale (- (* 2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2)))))) (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (/ x-scale angle) #s(hole binary64 (/ x-scale angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* -1 (* (pow angle 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* -1 (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1 (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))))) angle)))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (+ (* -1 (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))) (* (pow angle 2) (+ (* -1 (* (pow angle 2) (- (* -1/136048896000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (+ (* -1/952342272000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))))))) (* -1 (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (* 180 (/ y-scale (* angle (* x-scale (PI)))))))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* -1/360 (/ (* y-scale (PI)) x-scale)) (* (pow angle 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (+ (* 180 (/ y-scale (* x-scale (PI)))) (* (pow angle 2) (- (+ (* -1/360 (/ (* y-scale (PI)) x-scale)) (* (pow angle 2) (- (+ (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (* (pow angle 2) (- (* -1/136048896000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (/ (* y-scale (pow (PI) 3)) x-scale)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (+ (* -1/952342272000000 (/ (* y-scale (pow (PI) 5)) x-scale)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale)))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (/ (* y-scale (PI)) x-scale)) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) (* 1/699840000 (/ (* y-scale (pow (PI) 3)) x-scale)))))) (* -1/1080 (/ (* y-scale (PI)) x-scale))))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ 180 (* angle (PI)))))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (* -1/360 (PI)) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (+ (* -1/360 (PI)) (* (pow angle 2) (- (* 1/139968000 (pow (PI) 3)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (+ (* (pow angle 2) (- (+ (* -1/360 (PI)) (* (pow angle 2) (- (+ (* 1/139968000 (pow (PI) 3)) (* (pow angle 2) (- (* -1/136048896000000 (pow (PI) 5)) (+ (* -1/194400 (* (pow (PI) 2) (- (* 1/139968000 (pow (PI) 3)) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (+ (* -1/952342272000000 (pow (PI) 5)) (* 1/125971200000 (* (pow (PI) 4) (- (* -1/360 (PI)) (* -1/1080 (PI)))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* -1/360 (PI)) (* -1/1080 (PI))))) (* 1/699840000 (pow (PI) 3)))))) (* -1/1080 (PI)))) (* 180 (/ 1 (PI)))) angle)))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) angle)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) angle)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (+ (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (pow angle 2) (+ (* -1/2 (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) (* -1/2 (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (* 360 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (+ (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* 180 (/ (* (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/881596846080000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/1469328076800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (+ (* -1/4407984230400000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2)))) (* -1/30855889612800000000 (* (pow (PI) 7) (- (pow b 2) (pow a 2))))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))))) (+ (* 180 (/ (* (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (- (* 180 (/ (* x-scale (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))) (* (PI) (- (pow b 2) (pow a 2))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (+ (* 1/4534963200000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))) (* 1/2267481600000 (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))))) (* 64800 (/ (* (pow b 2) (* y-scale (+ (* -1/11664000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2))))))) (* x-scale (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))) angle)))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 x-scale))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* 1/64800 (* (pow angle 2) (* x-scale (pow (PI) 2)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (+ x-scale (* (pow angle 2) (- (* (pow angle 2) (- (* -1 (* (pow angle 2) (+ (* -1/24488801280000000 (* x-scale (pow (PI) 6))) (+ (* 1/1632586752000000 (* x-scale (pow (PI) 6))) (* 1/64800 (* (pow (PI) 2) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))))))) (+ (* -1/4199040000 (* x-scale (pow (PI) 4))) (* 1/25194240000 (* x-scale (pow (PI) 4)))))) (* -1/64800 (* x-scale (pow (PI) 2))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (* 360 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* 360 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (+ (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* (pow angle 2) (- (* 180 (/ (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (+ (* -1/476171136000000 (/ (* (pow b 2) (* y-scale (pow (PI) 5))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))) (* 1/125971200000 (* (pow (PI) 4) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))))))) (+ (* -1/194400 (* (pow (PI) 2) (- (* 180 (/ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (PI) (- (pow b 2) (pow a 2))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) (* 1/349920000 (/ (* (pow b 2) (* y-scale (pow (PI) 3))) (* (pow x-scale 2) (- (pow b 2) (pow a 2))))))))) (* -1/540 (/ (* (pow b 2) (* y-scale (PI))) (* (pow x-scale 2) (- (pow b 2) (pow a 2)))))))) angle)))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (pow angle 2) (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* y-scale (+ (* -1/16200 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/16200 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2))))) (* (pow angle 2) (+ (* y-scale (+ (* -1/1574640000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))) (* (pow angle 2) (* y-scale (+ (* 2 (/ (* (pow a 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) #s(hole binary64 (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) #s(hole binary64 (+ (* -1/16200 (/ (* (pow angle 2) (* (pow b 2) (* y-scale (pow (PI) 2)))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (* y-scale (pow (PI) 2))) (pow x-scale 2))) (* 2 (/ (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2))))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) #s(hole binary64 (+ (* 2 (/ (* (pow b 2) y-scale) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow b 2) (* y-scale (pow (PI) 2))) (pow x-scale 2))) (* (pow angle 2) (+ (* 2 (/ (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (pow x-scale 2))))))))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 2) y-scale) (pow x-scale 2))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (* (pow b 2) (* y-scale (pow (PI) 2)))) (pow x-scale 2))) (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (* y-scale (pow (PI) 2))) (pow x-scale 2))) (/ (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (* y-scale (pow (PI) 2))) (pow x-scale 2))) (* (pow angle 2) (+ (/ (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (pow x-scale 2)) (/ (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (pow x-scale 2)))))) (/ (* (pow b 2) y-scale) (pow x-scale 2)))))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow b 2) y-scale)))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* -1/32400 (* (pow angle 2) (* (pow b 2) (* y-scale (pow (PI) 2))))) (* (pow b 2) y-scale))))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (* y-scale (pow (PI) 2)))) (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* (pow b 2) y-scale))))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (* (pow b 2) (* y-scale (pow (PI) 2)))) (* (pow angle 2) (+ (* (pow angle 2) (* (pow b 2) (* y-scale (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))))) (* (pow b 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* (pow b 2) y-scale))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 y-scale))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ y-scale (* -1/32400 (* (pow angle 2) (* y-scale (pow (PI) 2)))))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ y-scale (* (pow angle 2) (+ (* -1/32400 (* y-scale (pow (PI) 2))) (* (pow angle 2) (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ y-scale (* (pow angle 2) (+ (* -1/32400 (* y-scale (pow (PI) 2))) (* (pow angle 2) (+ (* y-scale (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow angle 2) (* y-scale (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* -1/32400 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* 1/180 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (* 1/180 (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* 1/22674816000000 (* (pow angle 2) (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* (pow (PI) 7) (- (pow b 2) (pow a 2))))) (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* 1/2 (/ (* x-scale (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (* y-scale (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(hole binary64 (sin (+ (* 1/180 (* angle (PI))) (* 1/2 (PI))))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* 1/2 (/ (PI) angle))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) #s(hole binary64 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI))))))))
#s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) #s(hole binary64 (/ x-scale (cos (* 1/180 (* angle (PI)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 2)))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) #s(hole binary64 (* -1 (* angle (+ (* -1/2 (/ (PI) angle)) (* -1/180 (PI)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* 1/2 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1 (/ (* y-scale (cos (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))))) (* (pow x-scale 2) (+ (* 1/2 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow x-scale 2) (+ (* -1/4 (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI))))))) (* 1/8 (/ (* (pow x-scale 2) (* y-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))))))) x-scale)))
#s(approx (/ y-scale x-scale) #s(hole binary64 (/ y-scale x-scale)))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -180 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 180 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (* x-scale (PI)) #s(hole binary64 (* x-scale (PI))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))) x-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) y-scale) (* (PI) (- (pow b 2) (pow a 2))))) (* 2 (/ (* (pow a 2) (pow x-scale 2)) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (pow x-scale 2))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (* (pow b 2) y-scale)) (* 2 (/ (* (pow a 2) (pow x-scale 2)) y-scale))) (pow x-scale 2))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (- (* 2 (/ (* (pow a 2) (pow x-scale 2)) (pow y-scale 2))) (* 2 (pow b 2))) (pow x-scale 2))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) #s(hole binary64 (/ (* y-scale (+ (* 2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 2 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2))))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* 1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (* 1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))))))) x-scale)))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* 180 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* x-scale (+ (* -180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* 2 (/ (* (pow a 2) x-scale) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* x-scale (+ (* -2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) y-scale) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* y-scale (* (PI) (- (pow b 2) (pow a 2)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))) x-scale))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* y-scale (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* -1/8 (/ (* y-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* y-scale (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))) x-scale))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (* (pow y-scale 3) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (+ (* -1/8 (/ (* (pow y-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))) (+ (* 1/4 (/ (* (pow y-scale 3) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))) (* 1/2 (/ (* y-scale (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))) x-scale))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* x-scale (+ (* -180 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* x-scale (+ (* -2 (/ (pow a 2) (* angle (* y-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow b 2) y-scale) (* angle (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2))))))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3) (- (pow b 2) (pow a 2))))))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (- (pow b 2) (pow a 2)))))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* -1/4 (/ (* x-scale (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))) (* (pow y-scale 2) (+ (* -1/4 (/ (* x-scale (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3)))) (* (pow y-scale 2) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 7)))) (* 1/4 (/ (* x-scale (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (cos (* 1/180 (* angle (PI)))) (pow (sin (* 1/180 (* angle (PI)))) 3))))))))))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (/ (+ (* -180 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (PI) (- (pow b 2) (pow a 2))))))) y-scale)))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (PI) (- (pow b 2) (pow a 2)))))) y-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) y-scale)))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 2) (pow y-scale 2)) (pow x-scale 2))) (* 2 (pow a 2))) (pow y-scale 2))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1/2 (/ (* x-scale (* y-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* y-scale (+ (* -1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))) (+ (* -1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (+ (* 1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* y-scale (+ (* -1 (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))) (+ (* -1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (* 1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* y-scale (+ (* -180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* y-scale (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* 2 (/ (pow a 2) (pow y-scale 2)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2))))))) (+ (* -1/8 (/ (* x-scale (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))))) (* (pow y-scale 6) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 3) (- (pow b 2) (pow a 2)))))))) (+ (* 1/4 (/ (* x-scale (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))) (* (pow y-scale 4) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (* (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (- (pow b 2) (pow a 2)))))))) (* 1/2 (/ (* x-scale (+ (* 2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (cos (* 1/180 (* angle (PI)))) (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(hole binary64 (* -1 (* y-scale (+ (* -1/2 (/ (* x-scale (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))) (+ (* -1/8 (/ (* (pow x-scale 7) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (* (pow (cos (* 1/180 (* angle (PI)))) 7) (sin (* 1/180 (* angle (PI)))))))) (+ (* 1/4 (/ (* (pow x-scale 3) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (* (pow (cos (* 1/180 (* angle (PI)))) 3) (sin (* 1/180 (* angle (PI)))))))) (/ (cos (* 1/180 (* angle (PI)))) (* x-scale (sin (* 1/180 (* angle (PI)))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) #s(hole binary64 (* -1 (* y-scale (+ (* -180 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 180 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (* (pow a 2) x-scale) (* angle (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2))))))) (* 2 (/ (pow b 2) (* angle (* x-scale (* (PI) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (* (pow y-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))) (* 2 (/ (pow b 2) (* (pow x-scale 2) (* (PI) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) #s(hole binary64 (* -1 (* y-scale (+ (* -2 (/ (pow a 2) (pow y-scale 2))) (* 2 (/ (pow b 2) (pow x-scale 2))))))))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
#s(literal 180 binary64)
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(literal -1 binary64)
(*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (neg.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (neg.f64 (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
(/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (neg.f64 y-scale) (neg.f64 x-scale))
(/.f64 y-scale x-scale)
y-scale
x-scale
(/.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))) (-.f64 (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))) (/.f64 (PI.f64) #s(literal 2 binary64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
#s(literal 2 binary64)
(sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
(*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))
#s(literal -180 binary64)
(/.f64 (neg.f64 y-scale) (neg.f64 (*.f64 angle (*.f64 x-scale (PI.f64)))))
(/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))
(*.f64 angle (*.f64 x-scale (PI.f64)))
(*.f64 x-scale (PI.f64))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))
(*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))))
#s(literal 90 binary64)
(*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))
(/.f64 (*.f64 x-scale (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) (*.f64 angle (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))
(/.f64 (neg.f64 x-scale) (neg.f64 angle))
(/.f64 x-scale angle)
(*.f64 (/.f64 y-scale (PI.f64)) (/.f64 #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))
(/.f64 (neg.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) (neg.f64 (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))
(/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))))
(*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))
(*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))
(*.f64 (neg.f64 (/.f64 a y-scale)) (neg.f64 (/.f64 a y-scale)))
(*.f64 (fabs.f64 (/.f64 a y-scale)) (fabs.f64 (/.f64 a y-scale)))
(*.f64 (/.f64 a y-scale) (/.f64 a y-scale))
(pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 a a)) (neg.f64 (*.f64 y-scale y-scale)))
(/.f64 (*.f64 a a) (*.f64 y-scale y-scale))
(/.f64 (neg.f64 a) (neg.f64 y-scale))
(/.f64 a y-scale)
a
(*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))
#s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
(*.f64 #s(literal -1 binary64) (*.f64 a a))
(*.f64 (neg.f64 a) (neg.f64 a))
(*.f64 (fabs.f64 a) (fabs.f64 a))
(*.f64 a a)
(pow.f64 a #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 a) #s(literal 2 binary64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
(*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (*.f64 y-scale #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 (neg.f64 #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))
#s(literal 1 binary64)
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(/.f64 (neg.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (neg.f64 (PI.f64)))
(/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64))
(atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
(*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(literal -1/2 binary64)
(*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 (*.f64 x-scale #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 (neg.f64 x-scale) (neg.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale))))) (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
(/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale))))
(*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))
(*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale))
(/.f64 (neg.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))
(*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
(*.f64 (neg.f64 b) (neg.f64 b))
(*.f64 (fabs.f64 b) (fabs.f64 b))
(*.f64 b b)
(pow.f64 b #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 b) #s(literal 2 binary64)))
b
(*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(*.f64 (neg.f64 x-scale) (neg.f64 x-scale))
(*.f64 (fabs.f64 x-scale) (fabs.f64 x-scale))
(*.f64 x-scale x-scale)
(pow.f64 x-scale #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 x-scale) #s(literal 2 binary64)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))
(-.f64 (*.f64 b b) (*.f64 a a))
#s(approx (* 180 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI))) (*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) (PI.f64))))
#s(approx (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (PI)) (/.f64 (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) (PI.f64)))
#s(approx (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale))) (atan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))) (*.f64 b b))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (*.f64 b b)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (pow.f64 b #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (*.f64 b b)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 b b)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (*.f64 b b))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))) (*.f64 b b)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))) (*.f64 b b))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (*.f64 b b)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (* 2 (* (/ a y-scale) (/ a y-scale))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))
#s(approx (* (/ a y-scale) (/ a y-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))
#s(approx (/ a y-scale) (/.f64 a y-scale))
#s(approx a a)
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 (*.f64 b b) (PI.f64)))
#s(approx (* (PI) (- (* b b) (* a a))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (PI.f64)) (*.f64 (*.f64 b b) (PI.f64))))
#s(approx (- (* b b) (* a a)) (*.f64 b b))
#s(approx (- (* b b) (* a a)) (fma.f64 #s(literal -1 binary64) (*.f64 a a) (*.f64 b b)))
#s(approx (* -1 (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
#s(approx (* a a) (*.f64 a a))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 b b)))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 b b))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 b b))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 a a) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 b b)))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 b b)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 a a)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))) (pow.f64 a #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (/.f64 (*.f64 b b) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) x-scale) (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 4 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 6 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (pow.f64 a #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 y-scale #s(literal -1 binary64))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 y-scale #s(literal -2 binary64))))))
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (PI.f64))))
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1 binary64) (PI.f64) (/.f64 (*.f64 (*.f64 b b) (PI.f64)) (*.f64 a a)))))
#s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a)))
#s(approx (- (* b b) (* a a)) (*.f64 (*.f64 a a) (-.f64 (/.f64 (*.f64 b b) (*.f64 a a)) #s(literal 1 binary64))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 6 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))))) (pow.f64 a #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (*.f64 a a)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))))) (pow.f64 a #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 (*.f64 a a) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 (*.f64 a a) (fma.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 a a)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)))) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 (/.f64 x-scale (pow.f64 a #s(literal 4 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 a a)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 90 binary64) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64)))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (PI.f64))) #s(literal -1 binary64))))) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 y-scale (PI.f64)) #s(literal -1 binary64)))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))
#s(approx (- (* b b) (* a a)) (-.f64 (*.f64 b b) (*.f64 a a)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 a a)))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 a a)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 a a)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) x-scale)))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (* b b) (*.f64 b b))
#s(approx b b)
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (pow.f64 b #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 a a) (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))) (pow.f64 b #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 a a) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b)))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (fma.f64 #s(literal 90 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 6 binary64))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b)))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64))))) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64)))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (pow.f64 b #s(literal 4 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (pow.f64 b #s(literal 6 binary64))))) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) y-scale) (*.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 b b) y-scale))))))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (pow.f64 x-scale #s(literal -2 binary64))))))
#s(approx (* (PI) (- (* b b) (* a a))) (*.f64 (*.f64 b b) (+.f64 (PI.f64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (PI.f64)) (*.f64 b b))))))
#s(approx (- (* b b) (* a a)) (*.f64 (*.f64 b b) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 a a) (*.f64 b b))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 6 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) (*.f64 b b)))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 6 binary64))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 x-scale x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 x-scale x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 6 binary64))))) (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 b b)) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 x-scale x-scale))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) (*.f64 x-scale x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (pow.f64 b #s(literal 4 binary64)))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (*.f64 y-scale (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (*.f64 b x-scale) #s(literal 2 binary64)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 (*.f64 b b) (+.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 a a) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 b b))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))))) angle))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) angle))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale)) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 y-scale y-scale))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) (/.f64 (fma.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/881596846080000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (*.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 y-scale y-scale)) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale)))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (*.f64 b b) (*.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) #s(literal 2 binary64))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)))))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 32400 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))))))) angle))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))))) angle))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))))) angle))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))) (*.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (*.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/881596846080000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (*.f64 #s(literal -1/30855889612800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64))))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64)))))) (PI.f64)) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (*.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))) (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (PI.f64))) (fma.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))) (PI.f64))))))))))) angle))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale angle) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 x-scale (PI.f64))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (PI.f64))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 angle (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale))) angle))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (PI.f64))) (*.f64 angle (fma.f64 #s(literal -1 binary64) (*.f64 angle (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) x-scale))))) angle))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (PI.f64))) (*.f64 angle (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) x-scale) (*.f64 angle (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale))))) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale))))))))) angle))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale angle) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 x-scale (PI.f64))))))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (PI.f64))) (/.f64 (*.f64 angle (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)) angle))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (PI.f64))) (*.f64 angle (fma.f64 angle (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale))) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) x-scale)))) angle))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (PI.f64))) (*.f64 angle (fma.f64 angle (-.f64 (fma.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale)))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) x-scale))) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) x-scale)))) angle))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 180 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (PI.f64)))))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (PI.f64)) (*.f64 angle (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) angle))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (PI.f64)) (*.f64 angle (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (-.f64 (*.f64 #s(literal -1/360 binary64) (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/1080 binary64) (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) angle))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (PI.f64)) (*.f64 angle (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (-.f64 (fma.f64 #s(literal -1/360 binary64) (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/1080 binary64) (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/699840000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (*.f64 #s(literal -1/1080 binary64) (*.f64 (PI.f64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) angle))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (fma.f64 #s(literal -1/64800 binary64) (*.f64 angle (*.f64 (*.f64 (PI.f64) (PI.f64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 angle (fma.f64 #s(literal -1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 angle (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* angle (PI)) (*.f64 angle (PI.f64)))
#s(approx angle angle)
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64))) (*.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64))) (*.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* 1/180 (* angle (PI))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* -180 (/ y-scale (* angle (* x-scale (PI))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (/ y-scale (* angle (* x-scale (PI)))) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))
#s(approx (* angle (* x-scale (PI))) (*.f64 angle (*.f64 x-scale (PI.f64))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (/ x-scale angle) (/.f64 x-scale angle))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))))) angle))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale))))) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))))) angle))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/136048896000000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale))))) (fma.f64 #s(literal -1/952342272000000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) x-scale) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))))))) (*.f64 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)))))))))) angle))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (*.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/136048896000000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale))))) (fma.f64 #s(literal -1/952342272000000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) x-scale) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)))) (*.f64 #s(literal 1/699840000 binary64) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) x-scale)))))) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/360 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64)))) (*.f64 #s(literal 1/699840000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))))) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/360 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/139968000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/136048896000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 1/139968000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64)))) (*.f64 #s(literal 1/699840000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))))) (fma.f64 #s(literal -1/952342272000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64)))))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64)))) (*.f64 #s(literal 1/699840000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))))) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/64800 binary64) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) angle))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))))) angle))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/881596846080000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))))))) angle))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (*.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) angle))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) angle))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/881596846080000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))))) (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))) (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 x-scale (PI.f64)) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/2267481600000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))))) (*.f64 #s(literal 64800 binary64) (*.f64 (/.f64 (*.f64 b b) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (pow.f64 (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))))))) angle))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale)
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (+.f64 x-scale (*.f64 #s(literal 1/64800 binary64) (*.f64 (*.f64 angle angle) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (+.f64 x-scale (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/4199040000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 #s(literal -1/64800 binary64) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (+.f64 x-scale (*.f64 (*.f64 angle angle) (-.f64 (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 6 binary64))) (fma.f64 #s(literal 1/1632586752000000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 6 binary64))) (*.f64 #s(literal 1/64800 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/4199040000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))) (fma.f64 #s(literal -1/4199040000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 #s(literal 1/25194240000 binary64) (*.f64 x-scale (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 #s(literal -1/64800 binary64) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) angle))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/349920000 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) angle))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal 360 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (fma.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/349920000 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (fma.f64 #s(literal -1/476171136000000 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 5 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 1/125971200000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))) (fma.f64 #s(literal -1/194400 binary64) (*.f64 (*.f64 (PI.f64) (PI.f64)) (-.f64 (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/349920000 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (pow.f64 (PI.f64) #s(literal 3 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (*.f64 #s(literal -1/540 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (*.f64 y-scale (PI.f64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))) angle))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (*.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 b (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/16200 binary64) (/.f64 (pow.f64 (*.f64 a (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (*.f64 (*.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale)))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale))))))))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 x-scale x-scale)))))))
#s(approx (* 2 (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))) (*.f64 x-scale x-scale)))))))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64))))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 x-scale x-scale)) (/.f64 (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 x-scale x-scale))) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale))))
#s(approx (/ (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (* x-scale x-scale)) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (/.f64 (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (*.f64 x-scale x-scale)))) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale))))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (*.f64 (*.f64 b b) y-scale))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64))))) (*.f64 (*.f64 b b) y-scale)))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (*.f64 (*.f64 b b) y-scale)))
#s(approx (* (* b b) (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2))) (fma.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 b b) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))) (*.f64 (*.f64 angle angle) (fma.f64 (*.f64 angle angle) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (*.f64 (*.f64 b b) (*.f64 y-scale (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 (*.f64 b b) y-scale)))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) y-scale)
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (+.f64 y-scale (*.f64 #s(literal -1/32400 binary64) (*.f64 (*.f64 angle angle) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (+.f64 y-scale (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (+.f64 y-scale (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 y-scale (*.f64 (PI.f64) (PI.f64))) (*.f64 (*.f64 angle angle) (fma.f64 y-scale (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 (*.f64 angle angle) (*.f64 y-scale (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(literal 1 binary64))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/32400 binary64) (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (*.f64 (PI.f64) (PI.f64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (*.f64 (*.f64 angle angle) (*.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) angle)))))
#s(approx (sin (* 1/180 (* angle (PI)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (* y-scale (pow (cos (* 1/180 (* angle (PI)))) 2)) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))
#s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) (*.f64 angle (fma.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) angle) (*.f64 #s(literal -1/180 binary64) (PI.f64))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))) (/.f64 (*.f64 y-scale (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))) x-scale))
#s(approx (/ y-scale x-scale) (/.f64 y-scale x-scale))
#s(approx x-scale x-scale)
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 180 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) x-scale))
#s(approx (* x-scale (PI)) (*.f64 x-scale (PI.f64)))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) x-scale))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) (PI.f64)) (/.f64 y-scale (-.f64 (*.f64 b b) (*.f64 a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 x-scale x-scale)))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 b b) y-scale) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) y-scale))) (*.f64 x-scale x-scale)))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 b b))) (*.f64 x-scale x-scale)))
#s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))
#s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (* x-scale x-scale) (*.f64 x-scale x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) x-scale))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)))))))) x-scale))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))) x-scale))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) x-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 y-scale (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) x-scale)))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 8 binary64)) (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 7 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 y-scale #s(literal 3 binary64)) (*.f64 x-scale x-scale)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) x-scale)))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -1 binary64) (*.f64 x-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))) (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 8 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64))))))))))))
#s(approx y-scale y-scale)
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) y-scale))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) y-scale))
#s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) (*.f64 y-scale y-scale)))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 (/.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 7 binary64)) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 y-scale (fma.f64 #s(literal -180 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 3 binary64)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 x-scale (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) (-.f64 (*.f64 b b) (*.f64 a a))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))
#s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 y-scale y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 7 binary64)) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 7 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (pow.f64 x-scale #s(literal 3 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))))
#s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))
#s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 a a) (*.f64 (*.f64 y-scale y-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))
#s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -1 binary64) (*.f64 y-scale (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 a y-scale) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))

eval161.0ms (0.7%)

Memory
14.9MiB live, 194.9MiB allocated; 27ms collecting garbage
Compiler

Compiled 198 063 to 5 808 computations (97.1% saved)

prune806.0ms (3.7%)

Memory
16.6MiB live, 1 147.2MiB allocated; 81ms collecting garbage
Pruning

52 alts after pruning (47 fresh and 5 done)

PrunedKeptTotal
New58813601
Fresh73441
Picked235
Done022
Total59752649
Accuracy
83.1%
Counts
649 → 52
Alt Table
Click to see full alt table
StatusAccuracyProgram
16.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
11.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
12.1%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
14.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
23.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
13.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
5.7%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
10.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
✓6.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
17.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
13.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) y-scale)) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
5.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
18.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
14.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
11.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
13.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
3.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
31.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
19.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
23.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))))) (PI.f64)))
12.8%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) #s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))))) (PI.f64)))
31.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 #s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
6.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) #s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
29.7%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) #s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
45.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale #s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 #s(literal -2 binary64) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
45.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))) (PI.f64)))
37.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))) (PI.f64)))
19.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
19.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
40.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)))))))) (PI.f64)))
20.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 #s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
22.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 #s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
9.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
3.6%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
✓40.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
✓13.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
19.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
46.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
44.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
48.1%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 #s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
50.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 #s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) angle)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
38.0%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 #s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
✓47.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
39.3%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
✓45.9%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
41.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
44.4%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
41.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
41.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 180 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
40.0%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
40.2%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale angle) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 x-scale (PI.f64))))))))) (PI.f64)))
46.5%
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
Compiler

Compiled 38 532 to 5 628 computations (85.4% saved)

regimes289.0ms (1.3%)

Memory
-7.1MiB live, 315.7MiB allocated; 19ms collecting garbage
Counts
99 → 3
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) #s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale angle) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 x-scale (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 180 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) y-scale)) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale)))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 #s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 #s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 #s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) angle)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale #s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)))) (/.f64 #s(literal -2 binary64) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 #s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 (*.f64 b b) (-.f64 (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (pow.f64 a #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))) (*.f64 a a)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 y-scale (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) #s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 #s(literal 2 binary64) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 b b) (*.f64 y-scale (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (*.f64 (/.f64 a y-scale) (/.f64 a y-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 #s(approx (/ x-scale (cos (* 1/180 (* angle (PI))))) x-scale) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (PI.f64))) (*.f64 #s(literal 1/540 binary64) (/.f64 (*.f64 y-scale (PI.f64)) (*.f64 x-scale x-scale)))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) #s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) #s(approx (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(approx (- (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 #s(approx (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 x-scale x-scale)) (*.f64 (*.f64 angle angle) (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) #s(approx (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/8100 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (*.f64 #s(literal 1/16200 binary64) (/.f64 (*.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (PI.f64))) (*.f64 #s(literal -64800 binary64) (/.f64 (*.f64 y-scale (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))) (*.f64 x-scale (*.f64 (PI.f64) (PI.f64)))))))) angle))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 #s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 x-scale x-scale)))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 #s(approx (sqrt (+ (* 4 (/ (* (pow b 4) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2)) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/ (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (*.f64 b b) (*.f64 x-scale x-scale)) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (*.f64 a a)) (/.f64 (*.f64 y-scale (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) #s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 #s(approx (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 y-scale (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (-.f64 (*.f64 b b) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (hypot.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 b b) (*.f64 a a))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 #s(approx (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 #s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 #s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (*.f64 #s(literal 1/90 binary64) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) #s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 a a) x-scale) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b #s(approx (sin (* (/ angle 180) (PI))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 y-scale (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (/.f64 (*.f64 (*.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 3 binary64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b #s(approx (sin (* (/ angle 180) (PI))) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 (*.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (*.f64 #s(literal 1/22674816000000 binary64) (*.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 #s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (*.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) angle)))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
Calls

11 calls:

30.0ms
b
29.0ms
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
27.0ms
a
26.0ms
x-scale
26.0ms
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
Results
AccuracySegmentsBranch
58.2%4(/.f64 angle #s(literal 180 binary64))
58.2%4(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
54.0%2(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
54.0%2(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
54.0%2(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
54.0%2(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
60.6%3a
58.5%2b
58.2%4angle
53.2%2x-scale
50.9%1y-scale
Compiler

Compiled 678 to 215 computations (68.3% saved)

regimes39.0ms (0.2%)

Memory
-5.6MiB live, 42.9MiB allocated; 5ms collecting garbage
Counts
52 → 2
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) #s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale angle) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 x-scale (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 180 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) y-scale)) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale)))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 #s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 #s(approx (+ (* 1/180 (* angle (PI))) (/ (PI) 2)) (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 y-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale x-scale)))))))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* -1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))))) (*.f64 (/.f64 y-scale x-scale) (/.f64 (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
Calls

2 calls:

16.0ms
b
13.0ms
a
Results
AccuracySegmentsBranch
57.3%2b
58.0%2a
Compiler

Compiled 2 to 10 computations (-400% saved)

regimes143.0ms (0.7%)

Memory
22.3MiB live, 160.2MiB allocated; 7ms collecting garbage
Counts
46 → 2
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) #s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale angle) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 x-scale (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 180 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) y-scale)) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale)))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
Calls

11 calls:

20.0ms
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
13.0ms
angle
13.0ms
x-scale
12.0ms
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
12.0ms
y-scale
Results
AccuracySegmentsBranch
48.3%2y-scale
48.7%2x-scale
48.2%2(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
48.2%2(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
48.2%2(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
48.2%2(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
48.6%2(/.f64 angle #s(literal 180 binary64))
48.6%2(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
48.6%2angle
46.2%1b
49.6%2a
Compiler

Compiled 678 to 215 computations (68.3% saved)

regimes83.0ms (0.4%)

Memory
-15.8MiB live, 78.3MiB allocated; 8ms collecting garbage
Counts
45 → 2
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) #s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale angle) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 x-scale (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 180 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal -360 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 x-scale x-scale) (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(approx (/ (* y-scale (+ (* 2 (/ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 2 (/ (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))))) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a)))) (*.f64 #s(literal 360 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 x-scale x-scale)) (*.f64 #s(literal 2 binary64) (*.f64 a a))) y-scale)) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (/.f64 (fma.f64 #s(literal -180 binary64) (/.f64 (pow.f64 (*.f64 b y-scale) #s(literal 2 binary64)) (*.f64 angle (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))) y-scale)))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64))))) (/.f64 (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (*.f64 a a))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 (fma.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (PI.f64)) (*.f64 #s(literal -1/1080 binary64) (PI.f64))) (*.f64 #s(literal 180 binary64) (pow.f64 (PI.f64) #s(literal -1 binary64)))) angle))))))) (PI.f64)))
Calls

5 calls:

22.0ms
(/.f64 angle #s(literal 180 binary64))
17.0ms
x-scale
12.0ms
angle
12.0ms
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
12.0ms
a
Results
AccuracySegmentsBranch
45.9%1(/.f64 angle #s(literal 180 binary64))
45.9%1(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
45.9%1angle
49.7%3x-scale
48.3%2a
Compiler

Compiled 11 to 31 computations (-181.8% saved)

regimes81.0ms (0.4%)

Memory
15.3MiB live, 107.3MiB allocated; 4ms collecting garbage
Counts
38 → 1
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) #s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale angle) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 x-scale (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (*.f64 #s(literal 180 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 (cos.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
Calls

8 calls:

11.0ms
x-scale
10.0ms
a
10.0ms
b
10.0ms
y-scale
9.0ms
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
Results
AccuracySegmentsBranch
45.9%1b
45.9%1x-scale
45.9%1(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
45.9%1(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
45.9%1(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
45.9%1(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
45.9%1y-scale
45.9%1a
Compiler

Compiled 669 to 194 computations (71% saved)

regimes139.0ms (0.6%)

Memory
25.6MiB live, 122.3MiB allocated; 82ms collecting garbage
Counts
35 → 2
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) #s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) #s(approx (* -1 (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 y-scale angle) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 x-scale (PI.f64))))))))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 y-scale #s(approx (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) #s(literal 1 binary64))) (*.f64 x-scale (sin.f64 (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
Calls

11 calls:

43.0ms
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
10.0ms
angle
9.0ms
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
9.0ms
x-scale
9.0ms
(/.f64 angle #s(literal 180 binary64))
Results
AccuracySegmentsBranch
46.9%2y-scale
44.9%1(/.f64 angle #s(literal 180 binary64))
44.9%1(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
44.9%1angle
44.9%1b
44.9%1(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
44.9%1(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
44.9%1(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
44.9%1(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
47.1%2a
44.9%1x-scale
Compiler

Compiled 678 to 215 computations (68.3% saved)

regimes148.0ms (0.7%)

Memory
0.7MiB live, 186.2MiB allocated; 33ms collecting garbage
Counts
33 → 3
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 b b) (*.f64 x-scale x-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) #s(approx (- (+ (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* (* b b) (- (/ (* (* b b) (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI)))))))) (pow a 4)) (* -1 (/ (- (* 2 (/ y-scale (* (* a a) (* angle (* x-scale (PI)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (* a a)))))) (* 2 (/ x-scale (* (* a a) (* angle (* y-scale (PI))))))) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (/.f64 (*.f64 x-scale (*.f64 y-scale (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (*.f64 angle (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 (*.f64 b b) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 x-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) #s(approx (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a))))) (fma.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 (*.f64 a a) (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 x-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 y-scale (PI.f64)))))) (*.f64 #s(literal 2 binary64) (/.f64 y-scale (*.f64 angle (*.f64 (*.f64 b b) (*.f64 x-scale (PI.f64))))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 x-scale (fma.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))) (*.f64 #s(literal 180 binary64) (/.f64 (*.f64 a a) (*.f64 angle (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (*.f64 (/.f64 y-scale (PI.f64)) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64)))))) (*.f64 a a))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (fma.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))) (*.f64 #s(literal 90 binary64) (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (PI.f64))))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 y-scale (*.f64 x-scale (PI.f64)))))) (*.f64 b b))))))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) #s(approx (* (/ y-scale x-scale) (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))) (/.f64 (fma.f64 #s(literal 180 binary64) (/.f64 y-scale (*.f64 x-scale (PI.f64))) (*.f64 (*.f64 angle angle) (-.f64 (*.f64 #s(literal -1/360 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale)) (*.f64 #s(literal -1/1080 binary64) (/.f64 (*.f64 y-scale (PI.f64)) x-scale))))) angle)))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
Calls

11 calls:

19.0ms
y-scale
14.0ms
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
9.0ms
x-scale
9.0ms
a
9.0ms
(/.f64 angle #s(literal 180 binary64))
Results
AccuracySegmentsBranch
41.2%1(/.f64 angle #s(literal 180 binary64))
41.2%1(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
41.2%1angle
43.0%2b
41.2%1(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
41.2%1(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
41.2%1(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
41.2%1(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
45.9%3x-scale
47.1%3y-scale
44.2%2a
Compiler

Compiled 678 to 215 computations (68.3% saved)

regimes50.0ms (0.2%)

Memory
19.0MiB live, 64.2MiB allocated; 6ms collecting garbage
Counts
20 → 1
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (/.f64 y-scale (*.f64 (*.f64 x-scale x-scale) (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (*.f64 (/.f64 (*.f64 b b) angle) (/.f64 y-scale (*.f64 x-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal 180 binary64) (*.f64 (/.f64 (*.f64 a a) angle) (/.f64 x-scale (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) y-scale))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a a) (*.f64 y-scale y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 b b)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 #s(approx (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 b b) y-scale) (*.f64 x-scale x-scale)))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal -2 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) #s(approx (- (* b b) (* a a)) (*.f64 #s(literal -1 binary64) (*.f64 a a))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 y-scale (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a))))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) (/.f64 (*.f64 y-scale #s(approx (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 a y-scale) (/.f64 a y-scale))))) (*.f64 (PI.f64) (-.f64 (*.f64 b b) (*.f64 a a)))))))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) (/.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) #s(approx (sin (* 1/180 (* angle (PI)))) (*.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))) (PI.f64)))
Calls

7 calls:

13.0ms
a
6.0ms
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
6.0ms
(/.f64 angle #s(literal 180 binary64))
6.0ms
b
6.0ms
y-scale
Results
AccuracySegmentsBranch
41.2%1(/.f64 angle #s(literal 180 binary64))
41.2%1(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
41.2%1angle
41.2%1b
41.2%1a
41.2%1x-scale
41.2%1y-scale
Compiler

Compiled 13 to 41 computations (-215.4% saved)

regimes30.0ms (0.1%)

Memory
-2.8MiB live, 42.9MiB allocated; 6ms collecting garbage
Counts
5 → 1
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (sin (+ (* 1/180 (* angle (PI))) (/ (PI) 2))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) (*.f64 #s(literal 90 binary64) (*.f64 (/.f64 x-scale angle) #s(approx (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))) (/.f64 #s(literal -2 binary64) (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 1/2 (* (/ x-scale (cos (* 1/180 (* angle (PI))))) (/ (* y-scale (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (+ (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))))) (sin (* 1/180 (* angle (PI))))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 y-scale x-scale) #s(approx (/ (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (/.f64 #s(literal 180 binary64) (*.f64 angle (PI.f64))))))))) (PI.f64)))
Calls

11 calls:

7.0ms
(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
2.0ms
(/.f64 angle #s(literal 180 binary64))
2.0ms
a
2.0ms
angle
2.0ms
x-scale
Results
AccuracySegmentsBranch
41.2%1y-scale
41.2%1(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
41.2%1(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
41.2%1(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
41.2%1(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
41.2%1a
41.2%1b
41.2%1x-scale
41.2%1(/.f64 angle #s(literal 180 binary64))
41.2%1(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
41.2%1angle
Compiler

Compiled 678 to 215 computations (68.3% saved)

regimes33.0ms (0.2%)

Memory
-21.2MiB live, 33.5MiB allocated; 14ms collecting garbage
Counts
2 → 1
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 y-scale (*.f64 angle (*.f64 x-scale (PI.f64)))))))) (PI.f64)))
Calls

11 calls:

18.0ms
b
1.0ms
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
1.0ms
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
1.0ms
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
1.0ms
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
Results
AccuracySegmentsBranch
40.2%1y-scale
40.2%1(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
40.2%1(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
40.2%1(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
40.2%1(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
40.2%1a
40.2%1b
40.2%1x-scale
40.2%1(/.f64 angle #s(literal 180 binary64))
40.2%1(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
40.2%1angle
Compiler

Compiled 678 to 215 computations (68.3% saved)

regimes17.0ms (0.1%)

Memory
-15.6MiB live, 30.6MiB allocated; 4ms collecting garbage
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts
1 → 1
Calls
Call 1
Inputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
Outputs
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 #s(approx (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale)) #s(approx (* 90 (* (/ x-scale angle) (/ (* y-scale (- (* 2 (/ (* a a) (* y-scale y-scale))) (* 2 (/ (* b b) (* x-scale x-scale))))) (* (PI) (- (* b b) (* a a)))))) (*.f64 #s(literal -180 binary64) (/.f64 x-scale (*.f64 angle (*.f64 y-scale (PI.f64)))))))) (PI.f64)))
Calls

11 calls:

5.0ms
(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
1.0ms
(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
1.0ms
(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
1.0ms
(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
1.0ms
y-scale
Results
AccuracySegmentsBranch
13.2%1y-scale
13.2%1(/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))
13.2%1(atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)))
13.2%1(/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64))
13.2%1(*.f64 #s(literal 180 binary64) (/.f64 (atan.f64 (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale))) (PI.f64)))
13.2%1b
13.2%1a
13.2%1(/.f64 angle #s(literal 180 binary64))
13.2%1(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
13.2%1angle
13.2%1x-scale
Compiler

Compiled 678 to 215 computations (68.3% saved)

bsearch166.0ms (0.8%)

Memory
34.5MiB live, 174.5MiB allocated; 25ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
95.0ms
1.706130061112104e+161
1.2629196984236198e+163
57.0ms
1.1843877477913174e-204
4.418875518242921e-204
Samples
74.0ms66×1valid
38.0ms28×2valid
25.0ms96×0valid
3.0ms2×3valid
Compiler

Compiled 6 991 to 2 258 computations (67.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 131.0ms
adjust: 32.0ms (24.4% of total)
ival-cosu: 24.0ms (18.3% of total)
ival-pow2: 23.0ms (17.5% of total)
ival-div!: 17.0ms (13% of total)
ival-sinu: 15.0ms (11.4% of total)
ival-mult!: 11.0ms (8.4% of total)
ival-sub!: 3.0ms (2.3% of total)
ival-sqrt: 2.0ms (1.5% of total)
ival-add!: 2.0ms (1.5% of total)
ival-atan: 2.0ms (1.5% of total)

bsearch74.0ms (0.3%)

Memory
-3.9MiB live, 85.3MiB allocated; 21ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
67.0ms
1.2333702025182091e+132
1.0320829953696563e+133
Samples
36.0ms33×1valid
13.0ms50×0valid
12.0ms13×2valid
Compiler

Compiled 3 394 to 1 089 computations (67.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 57.0ms
ival-mult!: 19.0ms (33.3% of total)
ival-pow2: 11.0ms (19.3% of total)
ival-cosu: 8.0ms (14% of total)
ival-sinu: 6.0ms (10.5% of total)
ival-div!: 5.0ms (8.8% of total)
adjust: 4.0ms (7% of total)
ival-sqrt: 1.0ms (1.8% of total)
ival-sub!: 1.0ms (1.8% of total)
ival-add!: 1.0ms (1.8% of total)
ival-atan: 1.0ms (1.8% of total)

bsearch88.0ms (0.4%)

Memory
-18.2MiB live, 86.6MiB allocated; 38ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
80.0ms
1.5552753945846968e+109
6.564175491165323e+109
Samples
42.0ms42×1valid
15.0ms16×2valid
10.0ms38×0valid
Compiler

Compiled 3 742 to 1 167 computations (68.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 48.0ms
ival-pow2: 12.0ms (24.8% of total)
ival-cosu: 8.0ms (16.5% of total)
ival-sinu: 6.0ms (12.4% of total)
ival-div!: 6.0ms (12.4% of total)
ival-mult!: 6.0ms (12.4% of total)
adjust: 5.0ms (10.3% of total)
ival-sqrt: 1.0ms (2.1% of total)
ival-sub!: 1.0ms (2.1% of total)
ival-add!: 1.0ms (2.1% of total)
ival-atan: 1.0ms (2.1% of total)

bsearch98.0ms (0.5%)

Memory
21.9MiB live, 111.0MiB allocated; 18ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
89.0ms
3.2808918393322003e+55
8.480179701658121e+58
Samples
35.0ms41×1valid
20.0ms20×2valid
17.0ms67×0valid
Compiler

Compiled 4 980 to 1 571 computations (68.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 66.0ms
ival-pow2: 22.0ms (33.1% of total)
ival-cosu: 10.0ms (15% of total)
ival-sinu: 9.0ms (13.5% of total)
ival-mult!: 7.0ms (10.5% of total)
ival-div!: 7.0ms (10.5% of total)
adjust: 5.0ms (7.5% of total)
ival-sqrt: 2.0ms (3% of total)
ival-sub!: 2.0ms (3% of total)
ival-add!: 1.0ms (1.5% of total)
ival-atan: 1.0ms (1.5% of total)

bsearch97.0ms (0.4%)

Memory
11.3MiB live, 110.4MiB allocated; 23ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
88.0ms
6.2602184551065515e+118
1.6180818493583034e+122
Samples
42.0ms52×1valid
22.0ms17×2valid
16.0ms59×0valid
Compiler

Compiled 5 060 to 1 595 computations (68.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 74.0ms
ival-pow2: 15.0ms (20.2% of total)
ival-div!: 14.0ms (18.8% of total)
ival-cosu: 10.0ms (13.5% of total)
ival-atan: 9.0ms (12.1% of total)
ival-sinu: 8.0ms (10.8% of total)
ival-mult!: 8.0ms (10.8% of total)
adjust: 6.0ms (8.1% of total)
ival-sqrt: 2.0ms (2.7% of total)
ival-sub!: 2.0ms (2.7% of total)
ival-add!: 1.0ms (1.3% of total)

bsearch207.0ms (1%)

Memory
-26.0MiB live, 200.2MiB allocated; 85ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
101.0ms
-7.148718863317732e-108
-1.4282265461791723e-108
81.0ms
-9.465736487564335e+170
-7.155291349477266e+167
Samples
66.0ms136×0valid
51.0ms61×1valid
31.0ms6×3valid
21.0ms21×2valid
Compiler

Compiled 8 738 to 2 687 computations (69.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 159.0ms
ival-mult!: 38.0ms (23.9% of total)
ival-cosu: 36.0ms (22.7% of total)
ival-pow2: 24.0ms (15.1% of total)
ival-div!: 23.0ms (14.5% of total)
ival-sinu: 15.0ms (9.4% of total)
adjust: 8.0ms (5% of total)
ival-sqrt: 8.0ms (5% of total)
ival-sub!: 3.0ms (1.9% of total)
ival-add!: 2.0ms (1.3% of total)
ival-atan: 2.0ms (1.3% of total)

derivations434.0ms (2%)

Memory
21.0MiB live, 368.1MiB allocated; 160ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 5 437 to 261 computations (95.2% saved)

preprocess138.0ms (0.6%)

Memory
1.2MiB live, 192.0MiB allocated; 21ms collecting garbage
Remove

(abs b)

(abs a)

Compiler

Compiled 39 376 to 6 378 computations (83.8% saved)

end0.0ms (0%)

Memory
0.0MiB live, 0.0MiB allocated; 0ms collecting garbage

Profiling

Loading profile data...